使用 excel 宏单击下一步按钮

Question

I am trying to get the macro to open up a page in internet explorer, enter login information, click login, then on the next page, click 'I agree'. Here is what I have so far.

  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

This is enough to get me to the page where I need to click 'I agree', but I am unsure of how to get it to click the 'I agree' button.

Here is what comes up under inspect element

Can anyone help me with what to do next?

Answer 1

Next ele Do While IE.Busy Application.Wait DateAdd("s", 1, Now) Loop Set eles = idoc.getElementsByTagName("input")

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