GetElementByClassName

[vicedo]

Hi,

Please i need to get a div with class="table" from the web link below

https://www.learnthat.org/pages/view/roots.html


Thanks and regards
Vicedo

 

[pike]

hi
try,,,

Option Explicit

'reference to Microsoft HTML Object Library
Sub Web_Table_Option_One()

    Dim objTable As Object
    Dim lRow As Long
    Dim lngTable As Long
    Dim lngRow As Long
    Dim lngCol As Long
    Dim ActRw As Long

    Dim HTMLdoc As New HTMLDocument

    With CreateObject("MSXML2.XMLHTTP.6.0")
        .Open "GET", "https://www.learnthat.org/pages/view/roots.html", False
        .send
        HTMLdoc.body.innerHTML = .responseText
    End With

    Set objTable = HTMLdoc.body.getElementsByTagName("Table")

    For lngTable = 0 To objTable.Length - 1
        For lngRow = 0 To objTable(lngTable).Rows.Length - 1
            For lngCol = 0 To objTable(lngTable).Rows(lngRow).Cells.Length - 1
                Cells(ActRw + lngRow + 1, lngCol + 1) = objTable(lngTable).Rows(lngRow).Cells(lngCol).innerText
            Next lngCol
        Next lngRow
        ActRw = ActRw + objTable(lngTable).Rows.Length + 1
    Next lngTable

End Sub

 

[vicedo]

Hello Pike,

I get a compile error:

User-defined type not defined

The error is pointing to the lines in red

[COLOR=#333333]Option Explicit[/COLOR]'reference to Microsoft HTML Object Library
[COLOR=#ff0000][B]Sub Web_Table_Option_One()[/B][/COLOR]

    Dim objTable As Object
    Dim lRow As Long
    Dim lngTable As Long
    Dim lngRow As Long
    Dim lngCol As Long
    Dim ActRw As Long

    Dim [B][COLOR=#ff0000]HTMLdoc As New HTMLDocument[/COLOR][/B]

    With CreateObject("MSXML2.XMLHTTP.6.0")
        .Open "GET", "https://www.learnthat.org/pages/view/roots.html", False
        .send
        HTMLdoc.body.innerHTML = .responseText
    End With

    Set objTable = HTMLdoc.body.getElementsByTagName("Table")

    For lngTable = 0 To objTable.Length - 1
        For lngRow = 0 To objTable(lngTable).Rows.Length - 1
            For lngCol = 0 To objTable(lngTable).Rows(lngRow).Cells.Length - 1
                Cells(ActRw + lngRow + 1, lngCol + 1) = objTable(lngTable).Rows(lngRow).Cells(lngCol).innerText
            Next lngCol
        Next lngRow
        ActRw = ActRw + objTable(lngTable).Rows.Length + 1
    Next lngTable
 [COLOR=#333333]End Sub[/COLOR]

 

[pike]

Hi
You have to reference the Microsoft HTML office library

 

[vicedo]

Thanks a lot Pike