Extracting a value from a webpage

Good day - I am sure this was addressed numerous times, but I am frustrated I tried all possible ways and still cant get it to work.

I am trying to scrape a value from a website which has the following code:

CODE.png

I need to extract only 169.23

This is my code which is not working:

Sub ImportCurrentPrice2()

Dim appIE As Object
Set appIE = CreateObject("internetexplorer.application")

Visible = True

With appIE
    .Navigate "https://finance.google.com/finance?q=AAPL"
    .Visible = False
End With

Do While appIE.Busy
    DoEvents
Loop



Set allRowOfData = appIE.document.getElementsByClassName("hilite")

Dim myValue As String: myValue = allRowOfData.Cells(4).innerHTML

appIE.Quit
Set appIE = Nothing

Range("A1").Value = myValue


End Sub

This returns an error.

Any suggestion how code above needs to be modified?

Thank You,

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

getElementsByClassName returns an array like nodes, so you need to specify the postion of the index you want to return.

For instance

appIE.document.getElementsByClassName("hilite")(4).innertext

My guess would be

appIE.document.getElementsByClassName("rgt")(0).innerHtml

Yes - that is why post #3 was allowed - you have complied with the moderation request - thank you.