Mis proyectos: Como tener el precio histórico de las criptomonedas en un archivo de Excel (últimos 6 meses)

Estamos concluyendo con éste post una tercia de artículos para ver como podemos mostrar en un gráfico de Microsoft Excel los precios de los últimos seis meses de diversas criptomonedas, agradecemos mucho a quienes nos han seguido esperando que les hallan sido de utilidad estos artículos (si no han tenido oportunidad los invitamos a leerlos).

Como mencionamos en los posts anteriores, es muy difícil darle seguimiento a todas las criptomonedas existentes y las que se están creando, tan solo basta darse una vuelta por CoinGecko para ver la gran cantidad de monedas que hay en circulación en este momento.

Es por ello que solo estaremos mostrando en ésta ocasión como generar los gráficos de los precios históricos de Bitcore, Blackcoin, Cardano, Peercoin y Primecoin. Los códigos fuentes para analizar el comportamiento de estas criptomonedas y las de los dos artículos previos es igualmente aplicable a cualquier criptomoneda que se analice en CoinGecko.

El código fuente es exactamente el mismo que en el de los dos artículos anteriores dedicados a mostrar el precio histórico en Excel usando una macro, por lo que no hay necesidad de una explicación exhaustiva nuevamente. Pero de todas maneras brevemente explicaré como funciona.

Cuando se abre el libro por primera vez se descarga una base de datos desde CoinGecko, dicha base de datos corresponde a los precios históricos de la moneda en cuestión (en formato CSV). Algo como lo siguiente:

Sheets("Datos").UsedRange.ClearContents
Sheets("tmp").UsedRange.ClearContents

Set destCell = Worksheets("tmp").Range("A1")

Application.StatusBar = "Descargando datos, espere por favor..."

With destCell.Parent.QueryTables.Add(Connection:="TEXT;" & Trim(URL), Destination:=destCell)
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileCommaDelimiter = True
.Refresh BackgroundQuery:=False
End With

Application.StatusBar = "Filtrando datos..."

Con esta información ya disponible se procede a generar el gráfico (los datos son copiados a una pestaña llamada Datos y desde la cual se genera el gráfico usando un rango de datos definido) y a liberar la memoria y el portapapeles usado.

Sheets("tmp").Select
Range("A" & FirstRow & ":B" & LastRow).Select
Selection.Copy
Sheets("Datos").Select
Range("A1").Select
ActiveSheet.Paste

End If

Application.StatusBar = "Preparando gráfico..."

destCell.Parent.QueryTables(1).Delete
Worksheets("Grafico").Activate

Application.CutCopyMode = False
Application.StatusBar = False

Set destCell = Nothing

Esto, como ya se ha explicado nos generará un gráfico de la criptomoneda. Aquí estamos viendo el comportamiento de la moneda Peercoin.

Conclusiones:

Concluimos como mencionábamos al principio este trió de posts dedicamos a mostrar como generar un gráfico de los precios históricos de diversas criptomonedas. Se usó Microsoft Excel para generar el gráfico y una macro en VBA para recuperar la información desde el sitio web CoinGecko (a quien agradecemos su valioso aporte). Espero les halla sido de mucha utilidad y esperamos nos sigan acompañando en futuras entregas sobre las criptomonedas y su interacción con algunos lenguajes de programación. Hasta pronto.

Descargar el archivo para analizar el comportamiento de Bitcore, Blackcoin, Cardano, Peercoin y Primecoin.
¿Te gustó este post?, entonces si lo deseas puedes apoyarnos para continuar con nuestra labor, gracias.