Data Scraping from the WebSite

Hi,

Thanks all for your posts
Closing the IE is missing,

Quiet.IE

Sub test()

    Dim a(1 To 15), b(1 To 15, 1 To 3), e, i As Integer, c As Range

    With CreateObject("InternetExplorer.Application")

        .Navigate "http://www.religareonline.com/research/research-reports/currency-research-reports/4"
        .Visible = True

        While .busy Or .Readystate <> 4: DoEvents: Wend

        For Each e In .document.getElementById("divReportListingContent").getElementsByTagName("div")
            If e.classname Like "mT10*" Then
                i = i + 1
                a(i) = e.Children(0).Children(0).getElementsByTagName("a")(0)
                b(i, 1) = e.Children(0).Children(0).innertext
                b(i, 2) = Trim$(Split(e.Children(0).Children(1).innertext, "|")(1))
                b(i, 3) = e.Children(0).Children(2).innertext
            End If
        Next

        With Sheets.Add.Cells(1).Resize(UBound(b, 1), UBound(b, 2))
            .Value = b
            For i = 1 To UBound(a, 1)
                .Parent.Hyperlinks.Add .Cells(i, 1), a(i), .Cells(i, 1).Value
            Next
            .EntireColumn.AutoFit
        End With

    End With

End Sub

Sathis