非常感谢有人能帮忙。
这部分代码总是遇到运行时错误
enter image description here
图片中有HTML部分
enter image description here
谢谢你的关注。
Sub HTML_Table_To_Excel()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.application")
With objIE
.Visible = True
.navigate ("http://www.global-rates.com/interest-rates/libor/libor.aspx")
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
最佳答案
它不是元素ID-它是一个标记名;Set EuroButton = HTMLDoc.getElementsByTagName("btn_eur")
然后当您需要订购时:EuroButton(0).[command here]