Menubar

viernes, 23 de marzo de 2018

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

Share on Facebook Tweet Share on Google+ Submit to Reddit Send email
Por Simple Sharing Buttons
Por J. Manuel Mar H.
Cardano
  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.

Publicidad


  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.


publicidad:
Compartir:
Temas relacionados:
Caritas para las respuestas:
Escriba el código en la respuesta para insertar divertidas caritas en sus respuestas.
:) :( ;) :D :-/ :x :P :-* =(( :-O X( :7 B-) #:-S :(( :)) =)) :-B :-c :)] ~X( :-h I-) =D7 @-) :-w 7:P 2):) :!! \m/ :-q :-bd ^#(^

No hay comentarios.:

Publicar un comentario

Danos tu voto
Comunidad Kynamio
Directorio de blogs, ¡agrega el tuyo!
Programas para el mantenimiento de Windows
Blog de seguridad informatica