使用 excel 宏單擊下一步按鈕

Question

我正在嘗試讓宏在 Internet Explorer 中打開一個頁面，輸入登錄信息，單擊登錄，然后在下一頁上，單擊“我同意”。 這是我到目前為止所擁有的。

  Sub Test1()
   
       Dim IE As Object
       Set IE = CreateObject("InternetExplorer.Application")
       
       IE.Visible = True
       IE.navigate "website.com"
       
       Do While IE.Busy
           Application.Wait DateAdd("s", 1, Now)
       Loop
       
       Dim idoc As MSHTML.HTMLDocument
       Set idoc = IE.document
       
       idoc.all.orgCode.Value = "****"
       idoc.all.UserName.Value = "****"
       idoc.all.Password.Value = "****"
       
        Dim ele As MSHTML.IHTMLElement
       
       Dim eles As MSHTML.IHTMLElementCollection
       Set eles = idoc.getElementsByTagName("input")
       
       For Each ele In eles
           If ele.Value = "Login" Then
               ele.Click
           Else
           End If
           Next ele
   End Sub

這足以讓我進入需要點擊“我同意”的頁面，但我不確定如何讓它點擊“我同意”按鈕。

這是檢查元素下出現的內容

誰能幫我下一步做什么？

Answer 1

Next ele Do While IE.Busy Application.Wait DateAdd("s", 1, Now) 循環設置 eles = idoc.getElementsByTagName("input")

    For Each ele In eles
    If ele.Value = "I Agree" Then
        ele.Click
    Else
    End If