getElementsByTagName - extract HTML from website

[killerkoz17]

Hi Forum,

I am new to Excel VBA (and this forum, please forgive any shortcomings) and I am trying to use Excel VBA 2010 to scrape some prices (2.40) from a horse racing website. This is the HTML I am trying to scrape:

<span id="price-box-str_56891231_L_W" class="price_box_str">
2.40
</span>

http://www.sportsbet.com.au/horse-ra...-1-585168.html

Here is the macro I am trying to use to scrape it:

Sub SportsBetScraper()

' SportsBetScraper Macro

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.Navigate Range("E4")

Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Dim Doc As HTMLDocument
Set Doc = IE.document

Dim PriceData As String
PriceData = Trim(Doc.getElementsByTagName("price-box-str_56891231_L_W")(0).innerText)
MsgBox PriceData

End Sub

I copied most of this macro from a YouTube video. Everything works except the parameter "price-box-str_56891231_L_W". I know this because when I use "body" instead, the correct information is returned. Could someone help me get this macro working?

Cheers, Rob

[Chippy]

"price-box-str_56891231_L_W" is an id, not a tag, so getElementsByTagName won't work. Try getElementById.

[killerkoz17]

Thanks Chippy. That's exactly what I've done and it works now. For the record, the working code is:

Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
'IE.Visible = True
IE.Navigate Range("E4")

Do 'Makes macro wait until URL has loaded
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Dim Doc As HTMLDocument 
Set Doc = IE.document

Dim PriceData As String
PriceData = Trim(Doc.getElementById("price-box-str_56891231_L_W").innerText) 
MsgBox PriceData