Web scraping exchange rates

[fredrerik84]

Hi im trying to make a small macro that fetch data from this site:
Currency Exchange Table (US Dollar) - X-Rates

however I have a basic error in my code before I can proceed.

Option Explicit


Sub Exchangerates()




    Dim IE As New SHDocVw.InternetExplorer
    Dim HTMLDoc As New MSHTML.HTMLDocument
    Dim HTMLRows As MSHTML.IHTMLElementCollection
    Dim HTMLRow As MSHTML.IHTMLElement
    Dim i As Long
    Dim j As Long
    Dim sheet As Worksheet
    
    Const URL As String = "http://www.x-rates.com/table/?from=USD&amount=1"
    
    IE.Navigate URL
    IE.Visible = True
    
    With IE
        Do While .Busy Or .readyState <> READYSTATE_COMPLETE
            DoEvents
        Loop
    End With
    
    Set HTMLDoc = IE.document
    Set HTMLRows = HTMLDoc.getElementById("ratesTable").getElementsByTagName("tr")
    
    IE.Quit


End Sub

I get run-time error 91 - object variable with block variable not set.

Could anyone please help me fix this error `?

 

[fredrerik84]

Nevermind I found the error:

changed to this:

Set HTMLRows = Doc.getElementsByTagName("tr")
[code]