url of current page: https://www.tuttitalia.it/banche/classifica/1/
Code: Select all
Sub ExtractDetails(doc)
Dim R As Integer, TS As Object, COLONNE As Integer, RIGHE As Integer
Do While Not IE.readyState = READYSTATE_COMPLETE
Loop
Set TS = doc.getElementsByTagName("table")
COLONNE = TS(2).Rows(1).Cells.Length
RIGHE = TS(2).Rows.Length
For R = 1 To RIGHE - 1
Debug.Print UCase(TS(2).Rows(R).Cells(0).innerText)
Debug.Print TS(2).Rows(R).Cells(1).innerText
Debug.Print TS(2).Rows(R).Cells(2).innerText
Next R
End Sub
See image attached