(22/08/2009, 09:59)Bilgisayarcı yazdı:

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ı?

(23/08/2009, 01:41)maytas yazdı: 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

Benim yazdığım uzun kod ve sizin tavsiye ettiğiniz kodlar hakkında kısa bir hikaye.

Hastalığımın dermanını arıyorum, il il gezerken çareyi Ankarada buluyorum
yola çıktığım yer Samsun

Ama Ankaraya Erzurumdan geçmişim

sizin verdiğiniz kodun anlamı "Sen neden Erzurumdan geçtin Samsundan Ankaraya daha kestirme yol var."

Ben Ankaraya gideceğimi bilemedim ki, Ordu Tokat Yozgat derken Erzuruma kadar gittim.

Baştan Ankaraya gideceğimi bilsem ben de o yoldan gelirdim.

Kod tamamlandıktan sonra da düzeltme gereği duymamıştım. Çünkü Ankaraya Nasıl geldin diye soran olursa koddan bakıp anlayabilir. Bu veriler metin kutularına nasıl geliyor misali.