VBA EXTRACT TABLE HTML TO EXCEL

[roykana]

Dear All Master,
I want to extract table data in html file in excel with vba code. I give the html file and excel output the link.
Link file : VBA EXTRACT TABLE HTML TO EXCEL - Google Drive
file

Please give me a solution.
Thanks

Roykana

 

[roykana]

Dear All Master,
I want to extract table data in html file in excel with vba code. I give the html file and excel output the link.
Link file : VBA EXTRACT TABLE HTML TO EXCEL - Google Drive
file

Please give me a solution.
Thanks

Roykana

Dear All Master,

I made a sample sample vba code but it didn't work. Maybe anyone can help me.

Thanks
roykana

Option Explicit

Sub extractTablehtml()
    Dim IE As Object
    Dim theTable As Object
    Dim form As Variant, button As Variant
    Dim doc As Object

    Dim t As Variant
    Dim j As Integer
    Dim k As Integer

    Set IE = CreateObject("InternetExplorer.Application")
    ' navigate to a web page
    With IE
        .Visible = True
        .navigate ("https://datatables.net/")
    End With
    While IE.ReadyState <> 4
        DoEvents
    Wend

    Set doc = IE.document

    Set theTable = doc.getElementById("mytable").getElementsByTagName("tr")
    ' extract the data from tag and assign it to the first cell in the sheet
    Dim myValue As String

    j = 1
    k = 1

    For Each t In theTable
        myValue = t.innertext
        Cells(k, j).Value = myValue
        j = j + 1
        If j Mod 6 = 0 Then
            j = 1
            k = k + 1
        End If

    Next t

End Sub