İlgili örnekte bu şekilde uygulanabilir:
Kod:
s = 2
With IE.Document.All.tags("table").Item(1)
Do While s <= 362
For I = 1 To 30
For J = 2 To 10
Controls("Metin" & s) = .Rows(I).cells(J).innertext
s = s + 1
If s = 11 Then s = 102
Next
Next
Loop
End With