Automate click "Select" button using vba

That post you copied your code from is at least 2 years old. The problem with writing code to interact with web sites is that the site can change.

It looks like Google has updated their approach to account management since that code was written. If you log into Gmail for the first time with no history, the screen first asks for an email address and has a Next button to move forward. There is no box to enter a password. Your code errors at that point but the code (unwisely) ignores the error and continues. Then you have to press a Next button to move to the next screen to enter your password.

Once you have logged in using this email address, the next time to login you will not see the first screen, and will be taken directly to the second screen.

This should all be evident to you as you F8 through your code while watching the Internet Explorer window at the same time.

Why not just submit the form?

Without seeing the rest of your code I can only guess but something like this might work.

html.forms(0).submit

Update: The code is working fine now after adding this:

Do While ie.Busy Or ie.readyState <> 4: DoEvents: Loop

Thank you.

Originally Posted by Norie

Why not just submit the form?

Without seeing the rest of your code I can only guess but something like this might work.

html.forms(0).submit

Hi Norie,

Thank you for the reply and apologize for the late reply. Was away to overseas.
I do not know how to submit the forms... would you be able to help me?
Below is my code:

Sub GetOptionData()
    Dim ie      As internetexplorer
    Dim html    As HTMLDocument
    Dim myURL   As String
    
    On Error GoTo Err_Clear
    
    myURL = Range("myURL")
    
    '/ 1st page
    '/ Open Internet Explorer in memory go to website
    '/ Wait until IE has loaded the web page
    Set ie = New InternetExplorerMedium
    With ie
        .Visible = True
        .navigate "myURL"
        Do Until .readyState = 4: DoEvents: Loop
    End With
    
    '/  Web page loaded completely, define variables
    Set html = ie.document
    
    '/ Automate drop down list
    '/ Select region from drop down
    Dim drp As HTMLFormElement
    Set drp = html.getElementById("regionid")
    drp.selectedIndex = 1 '/ select region - 0 Europe, 1 JAPA

    Do Until ie.readyState = 4: DoEvents: Loop
    
    '/ Declares variables after region is selected and webpage loaded completely
    Dim html_element    As IHTMLElement
    Dim html_filter     As HTMLDocument
    
    '/ Look for Select button and automate click
    Set html_filter = ie.document
    For Each html_element In html_filter.getElementsByTagName("input")
        If html_element.Type = "submit" Then html_element.Click: Exit For
    Next html_element
    
    Do Until ie.readyState = 4: DoEvents: Loop
   
Err_Clear:
    If Err <> 0 Then Err.Clear
    Resume Next
    
    '/ Releases memory
    Set ie = Nothing
End Sub

Thank you!

HC