web query not importing table data

[sowgat]

Hi Friends,

I am trying to import a table through web query from the following link. But its not importing the table probably becs its created in JavaScript and jquery. Can u guys pls help me?

Note- I found a similar thread on another forum which has the code below. But it doesn't work on my URL

http://www.nseindia.com/live_market/...ers_losers.htm

Sub Dow_HistoricalData()

    Dim xmlHttp As Object
    Dim TR_col As Object, TR As Object
    Dim TD_col As Object, TD As Object
    Dim row As Long, col As Long

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    xmlHttp.Open "GET", "http://www.investing.com/indices/us-30-historical-data", False
    xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.send

    Dim html As Object
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = xmlHttp.ResponseText

    Dim tbl As Object
    Set tbl = html.getElementById("curr_table")

    row = 1
    col = 1

    Set TR_col = html.getelementsbytagname("TR")
    For Each TR In TR_col
        Set TD_col = TR.getelementsbytagname("TD")
        For Each TD In TD_col
            Cells(row, col) = TD.innerText
            col = col + 1
        Next
        col = 1
        row = row + 1
    Next
End Sub

[Marc L]

Hi,

I can't see your code (with tags …) !

[sowgat]

hi Marc,

I have updated my post above. Please can you help?

Thanks!

[Marc L]

In the code it's not the same URL neither the same table !

Use inspector tool within your web navigator to update the code …

[sowgat]

hi Marc,

I tried again with this new code. Didn't work. Please help.

Sub Dow_HistoricalData()

    Dim xmlHttp As Object
    Dim TR_col As Object, TR As Object
    Dim TD_col As Object, TD As Object
    Dim row As Long, col As Long

    Set xmlHttp = CreateObject("MSXML2.XMLHTTP.6.0")
    xmlHttp.Open "GET", "http://nseindia.com/live_market/dynaContent/live_analysis/top_gainers_losers.htm", False
    xmlHttp.setRequestHeader "Content-Type", "text/xml"
    xmlHttp.send

    Dim html As Object
    Set html = CreateObject("htmlfile")
    html.body.innerHTML = xmlHttp.ResponseText

    Dim tbl As Object
    Set tbl = html.getElementById("tab7Content")

    row = 1
    col = 1

    Set TR_col = html.getelementsbytagname("th")
    For Each TR In TR_col
        Set TD_col = TR.getelementsbytagname("td")
        For Each TD In TD_col
            Cells(row, col) = TD.innerText
            col = col + 1
        Next
        col = 1
        row = row + 1
    Next
End Sub