Web Sayfalarındaki tabloların item sıra nosu?

[harziyan]

Merhabalar;
Web sayfalardaki tablolardan excele veri alırken,

IE.Document.All.tags("table").Item([B][COLOR="Red"]5[/COLOR][/B])

kodu benzeri kodların kullanıldığını ve (kırmızı yazılı) item numaralarının tablodan tabloya değiştiğini gördüm. Acaba bu vb. tablolardaki item numaralarını hangi kritere göre alıyoruz.
Teşekkürler...

 

[Asri]

Merhabalar;
Web sayfalardaki tablolardan excele veri alırken,

IE.Document.All.tags("table").Item([B][COLOR="Red"]5[/COLOR][/B])

kodu benzeri kodların kullanıldığını ve (kırmızı yazılı) item numaralarının tablodan tabloya değiştiğini gördüm. Acaba bu vb. tablolardaki item numaralarını hangi kritere göre alıyoruz.
Teşekkürler...

Tablolardan verileri almak için aşağıdaki kodları yazmıştım.
Bu şekilde yapıldığında web sayfasına tablo ekleme çıkarma yapıldığında kod sorunsuz çalışmaya devam ediyor.

        Set Table = IE.document.getElementsByTagName("Table")
        For Each tablo In Table
            If Left(tablo.innerText, 10) = "TARİHPLAKA" Then  
               'Buradaki TARİHPLAKA tablo başlıkları boşluksuz. Verisi alınacak tabloyu bu şekilde seçiyorum.
               cezabulundu = True
               Exit For
            End If
        Next tablo
        
        If cezabulundu Then
           For cezasay = 1 To tablo.Rows.Length - 2  'Tablodaki kayıt sayısı
               satsay = satsay + 1
               Cells(satsay, 4) = tablo.Rows(cezasay).Cells(0).innerText 'Tablodaki ilk kolon verisi excel e aktarılıyor.
               Cells(satsay, 5) = tablo.Rows(cezasay).Cells(1).innerText
               Cells(satsay, 6) = tablo.Rows(cezasay).Cells(2).innerText
               Cells(satsay, 7) = tablo.Rows(cezasay).Cells(3).innerText
               Cells(satsay, 8) = tablo.Rows(cezasay).Cells(4).innerText
               Cells(satsay, 9) = tablo.Rows(cezasay).Cells(5).innerText
               Cells(satsay, 10) = tablo.Rows(cezasay).Cells(6).innerText
               Cells(satsay, 11) = tablo.Rows(cezasay).Cells(7).innerText 'Tablodaki son kolon verisi  excel e aktarılıyor.
           Next cezasay
        End If