Truco Excel. Obtener cambio de divisas on-line

El siguiente truco Excel es muy sencillo. Se trata de una consulta web que nos permite obtener el cambio de divisas a Euro casi practicamente on-line. La consulta se realiza sobre la web www.finanzas.com sitio que además quiero recomendar, desde él sigo la imparable caida de mis valores…

La consulta es la siguiente:


Sub cambio_divisas()
'
'
    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = ","
        .UseSystemSeparators = False
    End With
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.finanzas.com/divisas", Destination:=Range("A1"))
        .Name = "divisas_1"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    With Application
        .DecimalSeparator = "."
        .ThousandsSeparator = ","
        .UseSystemSeparators = True
    End With
End Sub 

Primero cambiamos los separadores de miles y decimales, posteriormente realizamos la consulta a www.finanzas.com/divisas y ya tenemos tabulada la información. Además no sobreescribimos anteriores consultas, siempre se añadirán gracias a RefreshStyle por lo que podemos hacer un seguimiento del cambio. A mí me ha sido muy útil para seguir el efecto del precio de unos fondos de inversión.

6 comentarios en “Truco Excel. Obtener cambio de divisas on-line

  1. Esto se graba en un hoja, en ThisWorkbook o en un modulo, se ejecuta por medio de un boton de comandos? Espero su mas pronta respuesta

  2. Una consulta, cual es el código que hace que tome la información de esa tabla y no de otra tabla dentro de la página!

    Espero sus comentarios

    Muchas gracias!!

  3. Lee la única tabla que hay en esa página: divisas_1

    ¡Estoy impresionado, este truco sigue funcionando!

    Que útil y práctico. A más de uno le ha servido para temas de riesgo de cambio.

  4. Hola! gracias por tu macro, funciona genial!

    tengo una duda, si en vez de insertar el contenido en columnas, es decir corriendo hacia la derecha el contenido que ya había en el excel, lo quiero insertar en filas, es decir para abajo, como lo hago?

    Y si solo quisiera importar algunas de las monedas?

    Gracias y un saludos!
    Pol

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *