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
Bu şekilde daha kolay olmaz mıydı?
Bir küçük ilave de ben yapayım.
İ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
`1. mesajdaki örnek yenilenmiştir.
eklenti düzeltildi.
ayrıca tüm önerilerinizi sonraki web çalışmalarında bekliyorum.
rows nedir, item nedir öğrendiniz nasıl olsa.
Değerli katkıları için destek ekibimize rep vermiyor muyuz sayın admin?