Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   WEB Tasarım&Programlama (http://www.excel.web.tr/forumdisplay.php?f=71)
-   -   Web Sayfalarındaki tabloların item sıra nosu? (http://www.excel.web.tr/showthread.php?t=113673)

harziyan 26-03-2012 22:24

Web Sayfalarındaki tabloların item sıra nosu?
 
Merhabalar;
Web sayfalardaki tablolardan excele veri alırken,
Kod:

IE.Document.All.tags("table").Item(5)
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 26-03-2012 22:36

Alıntı:

harziyan tarafından gönderildi (Mesaj 618901)
Merhabalar;
Web sayfalardaki tablolardan excele veri alırken,
Kod:

IE.Document.All.tags("table").Item(5)
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.

Kod:

        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



Saat 15:54

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.