Extract Data Table information from Java xHTML page

Option Explicit
Sub GetTable_javascript()
    Dim htm As HTMLDocument, objTableJava As Object, Myarray(1 To 10, 1 To 6)
    Dim objTableTR As Object, objData As Object, objTableTH As Object
    Dim strMatch As String, lngItem As Long, lngItemth As Long, lngRow As Long, lngItemtd As Long
    Set htm = New HTMLDocument
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "http://www.nseindia.com/live_market/dynaContent/live_watch/get_quote/GetQuoteFO.jsp?underlying=ACC&instrument=FUTSTK&expiry=24APR2014&type=-&strike=-", False
        .send
        htm.body.innerHTML = .responseText
    End With
    With htm
        Set objTableJava = .getElementById("responseDiv")
        Set objTableTR = .getElementById("tab9Content").getElementsByTagName("tr")
        For lngItem = 0 To objTableTR.Length - 1
            If objTableTR(lngItem).getElementsByTagName("th").Length > 0 Then
                Set objData = objTableTR(lngItem).getElementsByTagName("th")
                For lngItemth = 0 To objData.Length - 1
                    Myarray(1, lngItemth + 1) = objData(lngItemth).innerText
                Next
            ElseIf objTableTR(lngItem).getElementsByTagName("td").Length > 0 Then
                Set objData = objTableTR(lngItem).getElementsByTagName("td")
                lngRow = lngRow + 1
                For lngItemtd = 0 To objData.Length - 1
                    If InStr(1, objData(lngItemtd).innerHTML, "<SPAN") > 0 Then
                        strMatch = GetJavaVoidData(objData(lngItemtd).innerHTML, objTableJava.innerText)
                    Else
                        strMatch = objData(lngItemtd).innerText
                    End If
                    Myarray(1 + lngRow, lngItemtd + 1) = strMatch
                Next
            End If
        Next
        With Sheets(2).Cells(1, 1).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
            .Resize(UBound(Myarray), UBound(Myarray, 2)).Value = Myarray
        End With
    End With
End Sub

Function GetJavaVoidData(objData, objTableJava) As String
    Dim objRegEx As Object, objMatch As Object, objMatches As Object, strMatch As String
    Set objRegEx = CreateObject("vbscript.regexp")
    With objRegEx
        .Global = True
        .IgnoreCase = False
        .Pattern = "(id=)(\w+\d?)>"
        Set objMatch = .Execute(objData)
        strMatch = .Replace(objMatch(0), "$2")
        .Pattern = "" & strMatch & "\W:\W(\d+\W\d+|\d+)"
        Set objMatches = .Execute(objTableJava)
        GetJavaVoidData = .Replace(objMatches(0), "$1")
    End With
End Function

Option Explicit
Sub GET_LINKS()
    Dim htm As Object, objTableJava As Object, Myarray(1 To 7, 0 To 3)
    Dim levelOne As Object, levelTwo As Object, levelThree As Object, levelFour As Object
    Dim intRow As Long, intCol As Long, strMatch As String
    intCol = 3
    Set htm = CreateObject("htmlfile")
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://www.nseindia.com/live_market/dynaContent/live_watch/get_quote/GetQuoteFO.jsp?underlying=ACC&instrument=FUTSTK&expiry=24APR2014&type=-&strike=-", False
        .send
        htm.body.innerHTML = .responseText
    End With
    With htm
        Set objTableJava = .getElementById("responseDiv")
        With .getElementById("tab9Content")
            For Each levelOne In .Children
                For Each levelTwo In levelOne.Children
                    For Each levelThree In levelTwo.Children
                        intRow = intRow + 1
                        
                        For Each levelFour In levelThree.Children
                            intCol = intCol + 1
                            If levelFour.innerText <> "" Then
                                strMatch = levelFour.innerText
                            Else
                                strMatch = GetJavaVoid(levelFour.innerHTML, objTableJava.innerText)
                            End If
                            Myarray(intRow, intCol Mod 4) = strMatch
                            
                        Next levelFour
                    Next levelThree
                Next levelTwo
            Next levelOne
        End With
    End With
    With Sheets(3).Cells(1, 1).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
        .Resize(UBound(Myarray), UBound(Myarray, 2) + 1).Value = Myarray
    End With
End Sub

Function GetJavaVoid(objData, objTableJava) As String
    Dim objRegEx As Object, objMatch As Object, objMatches As Object, strMatch As String
    Set objRegEx = CreateObject("vbscript.regexp")
    With objRegEx
        .Global = True
        .IgnoreCase = False
        .Pattern = "(id=)(\w+\d?)>"
        Set objMatch = .Execute(objData)
        strMatch = .Replace(objMatch(0), "$2")
        .Pattern = "" & strMatch & "\W:\W(\W\d+\W\d+\W\d+|\d+\W\d+\W\d+|\d+\W\d+|\d+)"
        Set objMatches = .Execute(objTableJava)
        GetJavaVoid = .Replace(objMatches(0), "$1")
    End With
End Function

Sub Stock_Data()
Dim HTMLDoc As New HTMLDocument
Dim objElementsTd As Object
Dim objTd As Object
Dim lRow As Long
Dim myarray()
Dim oIE As InternetExplorer
Set oIE = New InternetExplorer
oIE.navigate "http://www.nseindia.com/live_market/dynaContent/live_watch/get_quote/GetQuoteFO.jsp?underlying=ACC&instrument=FUTSTK&expiry=24APR2014&type=-&strike=-"
oIE.Visible = True
Do Until (oIE.readyState = 4 And Not oIE.Busy)
DoEvents
Loop


HTMLDoc.body.innerHTML = oIE.document.body.innerHTML
oIE.Quit
With HTMLDoc.body
Set objElementsTd = .getElementsByTagName("td")
End With
lRow = 1
For Each objTd In objElementsTd
Debug.Print objTd.innerHTML
Debug.Print objTd.innerText
Cells(lRow, 1).Value = objTd.innerText
lRow = lRow + 1
Next
End Sub

Sub Stock_Data()
Dim HTMLDoc As New HTMLDocument
Dim objElementsTd As Object
Dim objTd As Object
Dim lRow As Long
Dim myarray()
Dim oIE As InternetExplorer
Set oIE = New InternetExplorer
oIE.navigate "http://www.nseindia.com/live_market/dynaContent/live_watch/get_quote/GetQuoteFO.jsp?underlying=ACC&instrument=FUTSTK&expiry=24APR2014&type=-&strike=-"
oIE.Visible = True
Do Until (oIE.readyState = 4 And Not oIE.Busy)
DoEvents
Loop
'Application.Wait (Now + TimeValue("0:00:03"))'may have to adjust depending on local systems
HTMLDoc.body.innerHTML = oIE.document.body.innerHTML
oIE.Quit
With HTMLDoc.body
 Set elemcollection = .getElementsByTagName("table")
 For t = 0 To (elemcollection.Length - 1)


            For r = 0 To (elemcollection(t).Rows.Length - 1)


                For C = 0 To (elemcollection(t).Rows(r).Cells.Length - 1)
   
                    ThisWorkbook.Sheets("Stock Results").Cells(r + 1 + rRow, C + 1) = Trim(elemcollection(t).Rows(r).Cells(C).innerText)


                Next C
               
            Next r
            rRow = Sheets("Stock Results").Cells(Rows.Count, 1).End(xlUp).Row + 1
        Next t
End With


End Sub