radica...@gmail.com expressed precisely :
La tabella ora è LT_Regioni: stessi campi di Toscana.
=====================================================
Private Sub Command65_Click()
Dim MyHTML As HTMLDocument, tHTML As New HTMLDocument
Dim tbl As htmlTable, row As HTMLTableRow, cell As HTMLTableCell
Dim col As HTMLTableCol, k As Long, n As Long, m As Long
Dim RS As Recordset, j As Long, NumRow As Long, NumCol As Long
Dim Regioni(1 To 20) As String, T As Double, TOT As Long, i
DoCmd.Hourglass True
T = Timer
Regioni(1) = "TOSCANA": Regioni(2) = "UMBRIA"
Regioni(3) = "LAZIO": Regioni(4) = "SARDEGNA"
Regioni(5) = "CAMPANIA": Regioni(6) = "MOLISE"
Regioni(7) = "MARCHE": Regioni(8) = "ABRUZZO"
Regioni(9) = "PUGLIA": Regioni(10) = "BASILICATA"
Regioni(11) = "CALABRIA": Regioni(12) = "SICILIA"
Regioni(13) = "LOMBARDIA": Regioni(14) = "PIEMONTE"
Regioni(15) = "LIGURIA": Regioni(16) = "VALLE_D'AOSTA"
Regioni(17) = "VENETO": Regioni(18) = "FRIULI_VENEZIA_GIULIA"
Regioni(19) = "EMILIA_ROMAGNA": Regioni(20) = "TRENTINO_ALTO_ADIGE"
CurrentDb.Execute "DELETE LT_Regioni.* FROM LT_Regioni;"
Set RS = CurrentDb.OpenRecordset("LT_Regioni", dbOpenDynaset)
For Each i In Regioni
Dim tblArray()
Set MyHTML =
tHTML.createDocumentFromUrl("
https://www.albopf.it/XXDomain/AlboStatico/html/"
& i & ".html", vbNullString)
Do While MyHTML.ReadyState <> "complete"
DoEvents
Loop
k = 0: m = 1: n = 0
For Each tbl In MyHTML.getElementsByTagName("table")
NumRow = tbl.Rows.Length
NumCol = tbl.Rows(0).Cells.Length
ReDim tblArray(1 To Int(NumRow / 9), 0 To 8)
For Each row In tbl.Rows
For Each cell In row.Cells
k = k + 1
If k > 11 And k Mod 2 Then
'Debug.Print k, n, m, cell.innerText
tblArray(m, n) = cell.innerText
n = n + 1
End If
If n = 9 Then
n = 0
m = m + 1
End If
Next: Next: Next
Set MyHTML = Nothing
TOT = TOT + UBound(tblArray)
For k = 1 To UBound(tblArray)
RS.AddNew
For j = 0 To 7
RS.Fields(j) = tblArray(k, j)
Next
RS.Update
Next
Next
DoCmd.Hourglass False
MsgBox Timer - T & " sec." & vbCrLf & _
Format(TOT, "# ###") & " Records downloaded"
End Sub
==============================================
Bruno