get value from the table web page

[sal21]

Based this link:

https://www.tuttitalia.it/italia/

how to get all value from web table?

tks.

my pooer code:

Sub TEST()

Dim oDom As Object: Set oDom = CreateObject("htmlFile")
Dim X As Long, Y As Long
Dim oRow As Object, oCell As Object
Dim data

Y = 1: X = 1

With CreateObject("msxml2.xmlhttp")
.Open "GET", "https://www.tuttitalia.it/italia/", False
.send
oDom.body.innerHTML = .responseText
Do: DoEvents: Loop Until .readyState = 4
End With

With oDom.getElementsByClassName("table")(4)

Debug.Print .rows.length
Debug.Print .rows(1).cells.length

ReDim data(1 To .rows.length, 1 To .rows(1).cells.length)

For Each oRow In .rows

For Each oCell In oRow.cells
'If UCase(oCell.innerText) > "" Then
data(X, Y) = UCase(oCell.innerText)
'End If
Y = Y + 1
Next oCell

Y = 1
X = X + 1

Next oRow

End With

End Sub

note:
The table is in the botton of page.

[2kaud]

You'll probably get more responses if you post this question on this site's sister site
https://www.vbforums.com/forumdispla...-6-and-Earlier