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.
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
Se guarda en una hoja, en Destination:=Range(«A1») le especificamos que sea la hoja activa en A1
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!!
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.
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
Pol, prepara una macro que lo haga en Excel. En otra hoja por ejemplo.