Hola
Estoy tratando de leer datos de la pagina web "https://www.oanda.com/fx-for-business/historical-rates"
De momento necesito ayuda para actualizar la divisa que "Quiero". Si podeis echar una mano para encontar el punto de partida, pues no soy capac de acceder esa tabla.
He conseguido actualizar la divisa que "Tengo" y encontrar el boton que accede a la tabla que guarda los cambios para un rango determinado de fechas. No se si es la forma mas correcta para un autodidacta como yo pero hasta aqui funciona
Sub importartblhtml()
Dim ie As InternetExplorer
Dim Doc As HTMLDocument
Dim htmTable As HTMLTable
Dim div As HTMLDivElement
Dim MyHTML_Element As IHTMLElement
Dim nFilas As Integer, nColumnas As Integer, x As Integer, y As Integer
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "https://www.oanda.com/fx-for-business/historical-rates"
Do While ie.ReadyState = 4: DoEvents: Loop 'Do While
Do Until ie.ReadyState = 4: DoEvents: Loop 'Do Until
Set Doc = ie.Document
ie.visible = True
Set div = Doc.all.hcc
'Leemos la tabla de la divisa que tengo hasta encontrar la deseada y hacemos click para actualizar
For Each MyHTML_Element In div.getElementsByTagName("div")
If MyHTML_Element.ClassName = "value" And MyHTML_Element.innerText = "EUR" Then
MyHTML_Element.Click
Exit For
End If
Next
Sleep 2000
'Leemos la tabla de la divisa que quiero hasta encontrar la deseada y hacemos click para actualizar
'PENDIENTE
'Buscamos el elemento "button Table" y hacemos click para acceder a la tabla de cambios
For Each MyHTML_Element In div.getElementsByTagName("div")
If MyHTML_Element.ClassName = "button table" Then MyHTML_Element.Click: Exit For
Do While ie.Busy And Not ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Next
End Sub
He visto que se pueden solictar cambios hasta de 180 dias aunque el predeterminado son 30 dias.Habria que acceder a ese combo(Table) para escoger el periodo.
Ahora estoy terminando una pequeña funcion para poner en formato de fecha standar las que extraigo de la tabla de cambios que viene como "Dec 5, 2021" y que me quede como 5/12/2021.
Saludos y feliz puente a todos
Editado por main - 06/Diciembre/2021 a las 14:16