VBA clicking a button on IE

[Default001]

Hi all,

I have the following code that allows me to access the website and select 100 entries per page, although I cannot figure out how to click on the button "Next 100" to access the next page. I tired just navigating to the on click event in the html but that had an error of something like "source already in use". Iv tried searching the internet for answers but cannot find anything helpful. The website is below:

EDGAR Search Results

Sub dates()Dim IE As New InternetExplorer
IE.Visible = True

IE.navigate "http://www.sec.gov/cgi-bin/browse-edgar?CIK=JBL&owner=exclude&action=getcompany"
Do
 DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document


Doc.getElementById("count").Value = 100
Doc.forms.Item(0).submit

 

[Default001]

Anyone? or does it need more of an explanation?

 

[John_w]

There isn't an easy way of referencing the button, because it doesn't have a name or id. It seems to be part of the first form (I haven't looked closely) so try:

doc.forms(0).getElementsByTagName("INPUT")(0).Click

 

[wideboydixon]

You don't need to click the button because that page allows you to specify the starting number:

Sub dates()
Dim IE As New InternetExplorer
IE.Visible = True

Dim start As Long
start = 0

Do
    IE.navigate "http://www.sec.gov/cgi-bin/browse-edgar?CIK=JBL&owner=exclude&action=getcompany&start=" & CStr(start) & "&count=100"
    Do
        DoEvents
    Loop Until IE.readyState = READYSTATE_COMPLETE
    Dim Doc As HTMLDocument
    Set Doc = IE.document
    '....some processing here I guess...
    start = start + 100
Loop Until [some condition]

'....'

End Sub

WBD