Kod:
With IE.Document.All.tags("table").Item(1)
For i = 1 To 30
For j = 2 To 10
s = .Rows(i).cells(j).innertext
Next
Next
End With
With IE.Document.All.tags("table").Item(1)
For i = 1 To 30
For j = 2 To 10
s = .Rows(i).cells(j).innertext
Next
Next
End With