NOT FOR ME, get value from table web

[sal21]

Previsioni statistiche basate su Patterns per il gioco Gioco del Lotto

La sezione previsioni basate su Patterns sono una sintesi delle migliori formazioni attuali per il Gioco del Lotto selezionate da centinaia di possibili giocate.

www.lottologia.com

Based this lin, how to get numeric value from each table, for:

Bari
Bari
Milano
Firenze
Torino

Note:
the number of table is dinamic

my test code:

Option Explicit
Private Sub Command1_Click()

Dim objHtml As MSHTML.HTMLDocument
Dim objDoc As MSHTML.HTMLDocument
Dim strUrl As String
Dim col As MSHTML.IHTMLElementCollection
Dim element As MSHTML.HTMLInputElement

    strUrl = "https://www.lottologia.com/lotto/previsioni-gruppi-omogenei/"
    
    Set objHtml = New HTMLDocument
    Set objDoc = objHtml.createDocumentFromUrl(strUrl, vbNullString)
    
    Do While objDoc.ReadyState <> "complete"
        DoEvents
    Loop
  
    Set col = objDoc.getElementsByTagName("div")
    For Each element In col
        If element.className = "series col-12" Then
            Debug.Print element.innerText
        End If
    Next element
    
    Set col = Nothing
    Set objDoc = Nothing
    Set objHtml = Nothing
    
End Sub

 

[sal21]

do not consider tyhe first question...

Thi is the new problem.
Get value from table cell

My test cdoe

Sub Getvalue()

Dim htm As HTMLDocument
Set htm = New HTMLDocument
Dim CLS As Object
Dim lRow As Long

With CreateObject("msxml2.xmlhttp")
.Open "GET", "https://www.lotto-italia.it/lotto/ritardatari-frequenti/ambi-frequenti", False
.send
htm.body.innerHTML = .responseText
End With

For Each CLS In htm.getElementsByClassName("table table-striped center")

lRow = lRow + 1

Next CLS

End Sub