Simulate click event on a web page

[sal21]

CLICK on button on html page​

Based the link:

Link text here

(first, select from listbox AGRIGENTO)

How to click on button >, and go To the next set of records?

Note:
i use the tipical IE object to navigate, from site

...
Code:
Set IE = CreateObject("InternetExplorer.Application")
URL1 = "link text"
IE.Navigate URL1

 

[John_w]

Try this macro. You must set the following references, via Tools -> References, in the VBA editor:

Microsoft HTML Object Library​

Microsoft Internet Controls​

Public Sub IE_Test()

    Dim IE As InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim dropdown As HTMLInputElement
    Dim searchButton As HTMLDivElement
    Dim nextPage As HTMLTableCell
    #If VBA7 Then
        Dim changeEvent As DOMEvent
    #Else
        Dim changeEvent As Object
    #End If
   
    Set IE = New InternetExplorer
    With IE
        .navigate "http://some link"
        While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        .Visible = True
        Set HTMLdoc = .document
    End With
   
    Set changeEvent = HTMLdoc.createEvent("HTMLEvents")
    changeEvent.initEvent "change", True, False

    Set dropdown = HTMLdoc.getElementById("ctl00_ContentPlaceHolder1_ddlCodiceCollegio_I")
    dropdown.Value = "AGRIGENTO"
    dropdown.dispatchEvent changeEvent
   
    Set searchButton = HTMLdoc.getElementById("ctl00_ContentPlaceHolder1_btnFiltra_CD")
    searchButton.Click
   
    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
       
    Set nextPage = HTMLdoc.getElementsByClassName("dxpButton")(1)
    nextPage.Click
   
End Sub

 

[sal21]

Try this macro. You must set the following references, via Tools -> References, in the VBA editor:

Microsoft HTML Object Library​

Microsoft Internet Controls​

Public Sub IE_Test()

    Dim IE As InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim dropdown As HTMLInputElement
    Dim searchButton As HTMLDivElement
    Dim nextPage As HTMLTableCell
    #If VBA7 Then
        Dim changeEvent As DOMEvent
    #Else
        Dim changeEvent As Object
    #End If
   
    Set IE = New InternetExplorer
    With IE
        .navigate "http://anagrafe.cng.it/anagrafe/geometri.aspx"
        While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        .Visible = True
        Set HTMLdoc = .document
    End With
   
    Set changeEvent = HTMLdoc.createEvent("HTMLEvents")
    changeEvent.initEvent "change", True, False

    Set dropdown = HTMLdoc.getElementById("ctl00_ContentPlaceHolder1_ddlCodiceCollegio_I")
    dropdown.Value = "AGRIGENTO"
    dropdown.dispatchEvent changeEvent
   
    Set searchButton = HTMLdoc.getElementById("ctl00_ContentPlaceHolder1_btnFiltra_CD")
    searchButton.Click
   
    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
       
    Set nextPage = HTMLdoc.getElementsByClassName("dxpButton")(1)
    nextPage.Click
   
End Sub

Not have Words.,!!!!
Pizza margherita!
Tks bro, you save my Life.

 

[sal21]

Try this macro. You must set the following references, via Tools -> References, in the VBA editor:

Microsoft HTML Object Library​

Microsoft Internet Controls​

Public Sub IE_Test()

    Dim IE As InternetExplorer
    Dim HTMLdoc As HTMLDocument
    Dim dropdown As HTMLInputElement
    Dim searchButton As HTMLDivElement
    Dim nextPage As HTMLTableCell
    #If VBA7 Then
        Dim changeEvent As DOMEvent
    #Else
        Dim changeEvent As Object
    #End If
 
    Set IE = New InternetExplorer
    With IE
        .navigate "http://anagrafe.cng.it/anagrafe/geometri.aspx"
        While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
        .Visible = True
        Set HTMLdoc = .document
    End With
 
    Set changeEvent = HTMLdoc.createEvent("HTMLEvents")
    changeEvent.initEvent "change", True, False

    Set dropdown = HTMLdoc.getElementById("ctl00_ContentPlaceHolder1_ddlCodiceCollegio_I")
    dropdown.Value = "AGRIGENTO"
    dropdown.dispatchEvent changeEvent
 
    Set searchButton = HTMLdoc.getElementById("ctl00_ContentPlaceHolder1_btnFiltra_CD")
    searchButton.Click
 
    While IE.Busy Or IE.readyState <> READYSTATE_COMPLETE: DoEvents: Wend
     
    Set nextPage = HTMLdoc.getElementsByClassName("dxpButton")(1)
    nextPage.Click
 
End Sub

Hummm...
Have Just experince to loop the current table of AGRIGENTO, and store the relative value in a vars?
Naturally, use Just the next code button, the get the complete set of cells?
Sorry me but never used a dom object, and this project Is very important for me, bro.
Tks.