Rich (BB code):
Private Sub FILL_TABELLA_ANNI()
Dim ODOM As HTMLDocument
Set ODOM = CreateObject("htmlFile")
Dim X As Long
Dim ANNO As String, POPZ As String, PERC As String
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://massimilianobenvenuti.it/archivio-storico-estrazioni-del-lotto-new", False
.send
ODOM.body.innerHTML = .responseText
End With
Dim myHTMLTable As HTMLTable
For Each myHTMLTable In ODOM.getElementsByClassName("fb-like")
With myHTMLTable.getElementsByTagName("td")
For X = 1 To .Length - 1
debug.print .Item(X).Cells(0).innerText
debug.print Replace(.Item(X).Cells(1).innerText, ",", ".")
debug.print .Item(X).Cells(2).innerText
Next X
End With
Next
End Sub
why this code dont get the value in table!!!
for test you can use also this link with same data:
Le ultime 50 estrazioni del gioco del Lotto
Totoproject.com » Gioco del Lotto » I numeri delle ultime 50 estrazioni del gioco del Lotto.
Last edited: