Really appreciate if anyone can help. The part of code always run into Run - time Error enter image description here The HTML part is in the picture enter image description here
Thanks for attention.
Sub HTML_Table_To_Excel()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
With objIE
.Visible = True
.navigate ("http://ift.tt/1xwqoWz")
End With
While objIE.Busy
Wend
Dim HTMLDoc As Object
Set HTMLDoc = objIE.document
Dim EuroButton As Object
Set EuroButton = HTMLDoc.getElementById("btn_eur")
objIE.Quit
Set objIE = Nothing
......
End Sub
Aucun commentaire:
Enregistrer un commentaire