+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html)
+--- Konu Başlığı: Web Üzerinden İmsakiye (/konu-web-uzerinden-imsakiye.html)
Cvp: Web Üzerinden İmsakiye - Bilgisayarcı - 22/08/2009
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 WithCvp: Web Üzerinden İmsakiye - maytas - 23/08/2009
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 WithCvp: Web Üzerinden İmsakiye - ozanakkaya - 23/08/2009
`1. mesajdaki örnek yenilenmiştir.
Cvp: Web Üzerinden İmsakiye - maytas - 23/08/2009
(23/08/2009, 02:18)sledgeab yazdı: `1. mesajdaki örnek yenilenmiştir.
Eklenti görünmüyor.
Cvp: Web Üzerinden İmsakiye - ozanakkaya - 23/08/2009
eklenti düzeltildi.
ayrıca tüm önerilerinizi sonraki web çalışmalarında bekliyorum.
rows nedir, item nedir öğrendiniz nasıl olsa.
Cvp: Web Üzerinden İmsakiye - teknikdestek - 23/08/2009
Değerli katkıları için destek ekibimize rep vermiyor muyuz sayın admin?