tabelle Web

Hai un problema con Excel?

Nuova discussione

tabelle Web
di antonello74 data: 15/02/2013 13:04:24
Buongiorno a tutti ho un problemino con lo scarico di più tabelle presenti in una pagina web, con il codice sotto riportato riesco a scaricare solo la prima tabella, gentilmente mi dite come posso fare per scaricarle tutte?

Set objDoc = objMSHTML.createDocumentFromUrl(" ", vbNullString)

Do While objDoc.ReadyState <> "complete"
DoEvents
Loop

Set oTab = objDoc.all.tags("table").Item(0)
Dim j As Integer
Dim h As String
Dim y As Integer

For y = 0 To oTab.Rows.Length - 1 'selezione delle righe della tabella
For j = 0 To 5 'selezione delle colonne
Set oTabRow = oTab.Rows.Item(y)
Set oTabEl = oTabRow.Cells.Item(j)
On Error Resume Next
h = oTabEl.innerText
Cells(y + 1, j + 1) = h
Next j
Next y

Vuoi Approfondire?