Excel VBA中的IE浏览器点击一个按钮

Question

通过Excel和VBA，我打开page.

我想点击通过VBA按钮“展开”，但我得到一个错误。

我试着用下面

Doc.getElementsByClassName("dhl-btn-main collapse-btn-expand-all")(0).Click 
Doc.getElementsByClassName("dhl-btn-main collapse-btn-expand-all").Click 

，我得到的是 运行时错误“438”错误中列出两个VBA命令：对象不支持此属性或方法。

Answer 1

假设 “医生” 是你提到的IE试试这个：

Set ElementCol = Doc.document.getElementsByClassName("dhl-btn-main collapse-btn-expand-all") 

For Each btnInput In ElementCol 
    btnInput.Click 
Next btnInput 

---

工作实例：

Private Sub IE_Expand() 
    Dim i As Long 
    Dim IE As Object 
    Dim objElement As Object 
    Dim objCollection As Object 

    ' Create InternetExplorer Object 
    Set IE = CreateObject("InternetExplorer.Application") 

    'IE.Visible = False 

    IE.Navigate "https://dhli.dhl.com/dhli-client/shipmentair;jsessionid=q3tzTzyLcL7JkxkNQ4nv7Jtrpzk1glylCyJ7vJzT27h2xBG5zXSm!599496067?0&shipmentId=151218573&accountGroup" 

    ' Wait while IE loading... 
    Do While IE.Busy 
     Application.Wait DateAdd("s", 1, Now) 
    Loop 

    IE.Visible = True 

    Set ElementCol = IE.document.getElementsByClassName("dhl-btn-main collapse-btn-expand-all") 

    ElementCol.Item(0).Click 

    ' Clean up 
    Set IE = Nothing 
    Set objElement = Nothing 
    Set objCollection = Nothing 

    Application.StatusBar = "" 
End Sub