非常感谢有人能帮忙。
这部分代码总是遇到运行时错误
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]

09-12 17:40