VBA Click Website Dropdown

[excely121]

Hi,

I'm trying to get my vba code to click this button on a website that will drop down with information once clicked. Can't seem to get the correct code for it.. ive tried multiple variations of the following changing the Id and getElementBy around with no luck:

IE.Document.getElementById("cursorhand").FireEvent ("onclick")
IE.Document.getElementById("cursorhand").Click

I can't provide the website as you have to login to it.. but here is the website inspect element of the button:

Thanks

 

[excely121]

Does this output what you expect?

Debug.Print IE.document.body.outerHTML

It should output the HTML for the whole page (document), without the headers, which should include the bit of HTML you posted. If not, it means you aren't looking at the correct document and your HTML is in a frame document.

Ok so it outputs a frame document. How would I look at this with VBA?

 

[John_w]

Ok so it outputs a frame document. How would I look at this with VBA?

Assuming the document you need is in the "main" frame, use this to get that document and then substitute IE.Document with HTMLdocin all the previous code I've posted.

    Dim HTMLdoc As HTMLDocument
    Dim frame As HTMLWindow2
    Set frame = IE.document.frames("main")
    Set HTMLdoc = frame.document

Again, use Debug.Print to verify that you've got the correct document.

 

[excely121]

Assuming the document you need is in the "main" frame, use this to get that document and then substitute IE.Document with HTMLdocin all the previous code I've posted.

    Dim HTMLdoc As HTMLDocument
    Dim frame As HTMLWindow2
    Set frame = IE.document.frames("main")
    Set HTMLdoc = frame.document

Again, use Debug.Print to verify that you've got the correct document.

So I tried HTMLdoc.getElementById("cursorhand").FireEvent ("onclick") no luck. The debug just shows the same info I sent earlier. No difference.

 

[John_w]

Not clear which Debug you're referring to. Did you try Debug.Print HTMLdoc.body.outerHTML? What does it display?

The full code should be:

    #If VBA7 Then
        Dim clickEvent As DOMMouseEvent
    #Else
        Dim clickEvent As Object
    #End If
    Dim frame As HTMLWindow2
    Dim HTMLdoc As HTMLDocument
    Dim cursorHand As HTMLAnchorElement

    '.... after the web page has completely loaded in the IE object
    
    Set frame = IE.document.frames("main")
    Set HTMLdoc = frame.document
    Debug.Print HTMLdoc.body.outerHTML
        
    With HTMLdoc
        Set clickEvent = .createEvent("MouseEvent")
        clickEvent.initEvent "click", True, False
        'Either:
        Set cursorHand = .getElementById("cursorhand")
        'Or:
        'Set cursorHand = .querySelector("a.cursor")
    End With
    
    cursorHand.dispatchEvent clickEvent
    Debug.Print cursorHand.outerHTML

 

[excely121]

Not clear which Debug you're referring to. Did you try Debug.Print HTMLdoc.body.outerHTML? What does it display?

The full code should be:

    #If VBA7 Then
        Dim clickEvent As DOMMouseEvent
    #Else
        Dim clickEvent As Object
    #End If
    Dim frame As HTMLWindow2
    Dim HTMLdoc As HTMLDocument
    Dim cursorHand As HTMLAnchorElement

    '.... after the web page has completely loaded in the IE object
   
    Set frame = IE.document.frames("main")
    Set HTMLdoc = frame.document
    Debug.Print HTMLdoc.body.outerHTML
       
    With HTMLdoc
        Set clickEvent = .createEvent("MouseEvent")
        clickEvent.initEvent "click", True, False
        'Either:
        Set cursorHand = .getElementById("cursorhand")
        'Or:
        'Set cursorHand = .querySelector("a.cursor")
    End With
   
    cursorHand.dispatchEvent clickEvent
    Debug.Print cursorHand.outerHTML

No luck. I tried changing "main" frame to "contents" and both set cursorhand lines.

I also tried these as well which didnt work:
IE.document.frames("contents").getElementById("a.cursor").FireEvent ("onclick")
IE.document.frames("main").getElementById("a.cursor").FireEvent ("onclick")
IE.document.frames("contents").getElementById("cursor").FireEvent ("onclick")
IE.document.frames("main").getElementById("cursor").FireEvent ("onclick")
IE.document.frames("main").getElementById("cursor").Click
IE.document.frames("contents").getElementById("cursor").Click
IE.document.frames("main").getElementById("a.cursor").Click
IE.document.frames("contents").getElementById("a.cursor").Click

Debug output is the same. I'm using Debug.Print IE.document.body.outerHTML

 

[John_w]

Debug output is the same. I'm using Debug.Print IE.document.body.outerHTML

No, you should be using Debug.Print HTMLdoc.body.outerHTML. The former outputs the frameset HTML that you posted. The latter should output the frame's HTML.

 

[excely121]

No, you should be using Debug.Print HTMLdoc.body.outerHTML. The former outputs the frameset HTML that you posted. The latter should output the frame's HTML.

It doesnt output anything. main or contents

 

[John_w]

And no error message?

Sorry, but I can't really help you further.

 

[excely121]

And no error message?

Sorry, but I can't really help you further.

No error message at all. I'll keep playing around with it and will post any updates that might help. Thanks