Internet Explorer VBA - Problem with Click Button

[jkteebs]

Hello,

I'm having troubles coming up with a code that will "click" on a specific button on a webpage. The code I have so far is the following:

Dim IE As InternetExplorerMedium
Dim URL As String
Dim E
Dim btnGo As Object

Sub GetData()
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    URL = 'enter url here
    IE.Navigate URL

    Do
    DoEvents
    Loop Until IE.readyState = 4
                
End Sub

When I click on "Inspect Element" on the button I need, this is the information that appears for it:

<button id="report-prompt-submit__56e88879002270cb4c8b95d2886f00cd_content-reporting-report-data"
type="submit" class="primary report-prompt-submit btn
btn-primary">
Run Report</button>

I just need some help to figure out how to write the code to click on this button. Any help is much appreciated! Thanks!

 

[John_w]

Welcome to MrExcel forums.

From the HTML you've posted it looks like a simple submit button, therefore you should be able to submit the parent form:

IE.document.forms(0).submit

assumes the button is in the first form (forms(0)). Use forms(1) if it is the second form, etc.

That's all I can suggest as you haven't provided the URL.

 

[jkteebs]

Thanks for the quick response John_w. Unfortunately, the code you provided only works for the search bar. I tried adjusting it to work with different forms (ex: forms(1), forms(2), etc.), but that didn't seem to do the trick. I can't provide the URL because the website only works if I am connected to the company's network. I'm sure that complicates things, but if there are any more suggestions, I'm all ears!

 

[jkteebs]

I was able to determine what was causing the problem. Looks like the page wasn't done completely loading, therefore the button wasn't available yet. I had to make Internet Explorer wait a few more seconds to finish loading, and then it was able to find the correct button. Here's the code I ended up using.

Sub Update ()

Dim IE as Object
Set IE = CreateObject("InternetExplorer.Application")
URL = 'enter website here


        IE.Visible = True
        IE.navigate URL
            Do
            DoEvents
            Loop Until IE.readyState = 4
            Application.Wait (Now + TimeValue("0:00:03"))
            
        IE.document.getElementById("report-prompt-submit__56e88879002270cb4c8b95d2886f00cd_content-reporting-report-data").Click

End Sub