Di seguito un esempio che utilizza Internet Explorer per accedere a una pagina, trovare una tabella specifica, quindi scorre le righe e le celle per inserire i valori in un foglio excel (nel tuo caso dovresti inserire tramite comandi sql i valori in tabelle msaccess).
Sub WebTableToSheet()
Dim objIE As Object
Dim varTables, varTable
Dim varRows, varRow
Dim varCells, varCell
Dim lngRow As Long, lngColumn As Long
Dim strBuffer As String
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.AddressBar = False
.StatusBar = False
.MenuBar = False
.Toolbar = 0
.Visible = True
.Navigate "http://www.holidaysoft.it/ "
End With
While objIE.Busy
Wend
While objIE.Document.ReadyState <> "complete"
Wend
Set varTables = objIE.Document.All.tags("TABLE")
For Each varTable In varTables
'Use the innerText to see if this is the table we want.
If varTable.innerText Like "DateOpenHighLowCloseVolumeAdj Close*" Then
Set varRows = varTable.Rows
lngRow = 2 'This will be the first output row
For Each varRow In varRows
Set varCells = varRow.Cells
lngColumn = 1 'This will be the output column
For Each varCell In varCells
ActiveSheet.Cells(lngRow, lngColumn) = varCell.innerText
lngColumn = lngColumn + 1
Next varCell
lngRow = lngRow + 1
Next varRow
End If
Next varTable
Cleanup:
Set varCell = Nothing: Set varCells = Nothing
Set varRow = Nothing: Set varRows = Nothing
Set varTable = Nothing: Set varTables = Nothing
objIE.Quit
Set objIE = Nothing
End Sub