How do I click a link on a web page using Excel VBA?

Question

I'm writing VBA code to obtain a ticker symbol from a user, navigate to a website, input the ticker symbol and click the appropriate link.

I researched this StackOverflow question and response, however, I don't have an innertext value to utilize.

My VBA code:

Sub clicklick()
Dim ie As Object
Dim form As Variant, button As Variant
Set ie = CreateObject("InternetExplorer.Application")
ticker = InputBox("Enter Ticker Symbol: ")

With ie
.Visible = True
.Navigate ("http://www.SITE_URL.com")

While ie.ReadyState <> 4
DoEvents
Wend

ie.document.getElementsbyName("sSrchTerm").Item.innertext = ticker

End With
End Sub

The link appears as follows in the page source:

<a class="hqt_button" href="javascript:void(0): onclick=HeaderBox.trySubmit()"></a>

The element doesn't seem to have a name, innertext or id. How can I click the link?

EDIT:

    Set Link = ie.document.getElementsByTagName("a") 
    For Each l In Link 
        If Link.classname = "hqt_button" Then 
            Link.Click 
            Exit For 
        End If 
    Next l

GetElementsByTagTame("a"), then iterate that collection checking to ensure that the element's .href is consistent and/or the class is "hqt_button"? — David Zemens
– David Zemens, Commented Jul 8, 2014 at 17:57
I think you're on the right track but try If l.classname = "hqt_button" Then... and then you need Next l or simply Next -- not Next link. — David Zemens
– David Zemens, Commented Jul 8, 2014 at 18:15
Made those changes, but got a Run-time 438: Object doesn't support this property or method. Doesn't seem to like this line of code:If link.classname = "hqt_button" Then — Mutuelinvestor
– Mutuelinvestor, Commented Jul 8, 2014 at 18:18

David Zemens · Accepted Answer · 2014-07-08 18:40:07Z

10

Try getting the collection of anchor tags, with:

GetElementsByTagName("a")

Then, iterate that collection using as much logic as you can to ensure you're clicking the right button.

For each l in ie.document.getElementsByTagName("a") 
    If l.ClassName = "hqt_button" Then
        l.Click
        Exit For
    Next

If there are multiple anchors with the same classname, you could do:

    If l.ClassName = "hqt_button" AND l.Href = ""javascript:void(0): onclick=HeaderBox.trySubmit()" Then
        l.Click
        Exit For
    Next

Alternatively

If you are using IE9+ you could use the GetElementsByClassName method.

GetElementsByClassName("hqt_button")

answered Jul 8, 2014 at 18:40

David Zemens

53.8k12 gold badges86 silver badges132 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

QHarr · Accepted Answer · 2020-04-04 21:38:09Z

1

You could also use a CSS selector of

a.hqt_button[href='javascript:void(0): onclick=HeaderBox.trySubmit()']

The "." means className. [] encloses an attribute. The above says className hqt_button with attribute href with value 'javascript:void(0): onclick=HeaderBox.trySubmit()', inside of an a tag.

CSS query:

Syntax in VBA:

CSS selectors are applied via the .querySelector method of the HTMLDocument.

ie.document.querySelector("a.hqt_button[href='javascript:void(0): onclick=HeaderBox.trySubmit()']").Click

edited Apr 4, 2020 at 21:38

answered Jun 22, 2018 at 15:24

QHarr

84.5k14 gold badges58 silver badges105 bronze badges

Collectives™ on Stack Overflow

How do I click a link on a web page using Excel VBA?

2 Answers 2

Comments

Comments

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Linked

Related