Checkbox on web page using Excel VBA

Question

I am trying to check a checkbox on a web page using Excel VBA. My code did not work. (There was no error but the tick was ticked)

How can I make the tick show when I do it on the web page?

Am I doing something wrong with the web scraping?

HTML:


  
    
      
        
      
    
    
      Bon de commande

      
    
    
      Date de la commande

      
    
    
      Date d'expédition maximale

      
    
    
      Vendor code

      
    
    
      Code bénéficiaire

      
    
    
      Entrepôt de destination

      
    
    
      Devise

      
    
    
      Statut

VBA code :

Sub automationAmazon()
    Dim ie As Object
    Set ie = CreateObject("internetexplorer.application")
    With ie
        .Visible = True
        .navigate "link"

        Do While .busy
            DoEvents
        Loop

        Do While .readyState <> 4
            DoEvents
        Loop

    End With

    Set Email = ie.document.getelementbyid("ap_email")
    Email.Value = "email@exemple.com"

    Set Password = ie.document.getelementbyid("ap_password")
    Password.Value = "xxx"

    Set submit = ie.document.getelementbyid("signInSubmit")
    submit.Click

    With ie
        .navigate "link"
        Do While .busy
            DoEvents
        Loop

        Do While .readyState <> 4
            DoEvents
        Loop

    End With

    ie.document.all("searchBy").Value = "PURCHASE_ORDER"
    ie.document.all("purchaseOrderNumber").Value = ThisWorkbook.Sheets("Data").Cells(1, 2).Text
    ie.document.getelementbyid("create-invoice-search-submit").Click

    Dim cBox As Object
    Set cBox = ie.document.getElementsByClassName("header")(0)
    cBox.Click
End Sub

The HTML:

QHarr · Accepted Answer

The element you are after is inside an iframe which is inside a form. You have to negotiate them. I have read your html in from a file.

The bit you need is:

ie.document.getElementsByTagName("iframe")(0).document.getElementsByTagName("input")(4).Click

Form and iframe:

My code:

Option Explicit
Public Sub test()
    Dim oFSO As Object, oFS As Object, sText As String
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set oFS = oFSO.OpenTextFile("C:\Users\User\Desktop\doc.html")

    Do Until oFS.AtEndOfStream
        sText = oFS.ReadAll()
    Loop

    Dim html As New HTMLDocument, b As Object
    html.body.innerHTML = sText
    Set b = html.getElementsByTagName("iframe")(0).document.getElementsByTagName("input")(4)
    Debug.Print b.outerHTML
    b.Click
End Sub

Verifying correct element:

The printout to the immediate window of the selected element's outerHTML shows that the correct element is selected:

Ensuring pages load each after each click

Use

While IE.Busy Or IE.readyState < 4: DoEvents: Wend

after each click event to allow the page to load. That includes after the clicks you do in the login sequence before attempting this click.

Reading in HTML file script adapted from ozknows.

Checkbox on web page using Excel VBA

Answers (1)

Ensuring pages load each after each click

Related Questions