How to select drop down from a webpage using VBA code.

[Rabi05]

I am trying to pull up some data from a webpage, which will help me to generate my report faster.


In order to pull up those data, I have to choose a drop down. I have tried to select the drop down but it's not working.


Could you please check the below code and suggest where I am dong wrong.


Sub getoptdt()
Dim ie As InternetExplorer
Dim html As HTMLDocument
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "website name"


Do While ie.busy = True
DoEvents
Loop
Set html = ie.document


Dim drp As HTMLFormElement
Set drp = html.getElementById("<wbr>c12ssdrdq")


drp.selectedIndex = 2

 

[John_w]

You might need to Click the select element. Does the select element have any events on it? Check with the browser tools (press the F12 key). If so, this shows how to trigger the 'change' event on the element with dispatchEvent:

    Dim evtChange As Object
    Set evtChange = HTML.createEvent("HTMLEvents")
    evtChange.initEvent "change", True, False
    
    Dim drp As HTMLSelectElement
    Set drp = HTML.getElementById("c12ssdrdq")
    drp.Click
    drp.selectedIndex = 2
    drp.dispatchEvent evtChange

Please put VBA code inside CODE tags - click the # icon in the message editor.