Table içerisinde satırları okutma hakkında

[Kemal Demir]

Arkadaslar herkese kolay gelsin,

    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    Dim RetVal As Variant
alan ="http://www.kobinet.org.tr/kobifirma.php?firma=agbasplastik&lang=t"
        URL = alan
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate URL
        .Visible = True
        Do Until IE.ReadyState = 4: DoEvents: Loop
        With .Document.all
         End With
        Set HTML_Body = IE.Document.GetElementsByTagName("Body").Item(0)
        Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
        Set MyTable = HTML_Tables(5)

Listbox1.additem MyTable.Rows(1).Cells(1).InnerText
'Cells(1).InnerText i böldürebilirmiyiz.Hepsi tek hucrede gorunmekte.
'listbox'a alınan verileri daha ayrıntılı olarak hucrelere nasıl böldürebiliriz.
End With
Next
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set IE = Nothing

Bu konuda yardımcı olabilirmisiniz,arkadaslar.

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

Verileri A2'den itibaren sayfaya yazmaktadır.Siz kendinize göre uyarlayınız.

Private Sub CommandButton1_Click()
    Dim IE As Object
    Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object
    Dim RetVal As Variant
    alan = "[URL]http://www.kobinet.org.tr/kobifirma.php?firma=agbasplastik&lang=t[/URL]"
    URL = alan
    Set IE = CreateObject("InternetExplorer.Application")
    With IE
        .Navigate URL
        .Visible = True
            Do Until .ReadyState = 4: DoEvents: Loop
            Do While .Busy: DoEvents: Loop
                Set HTML_Body = .Document.GetElementsByTagName("Body").Item(0)
                Set HTML_Tables = HTML_Body.GetElementsByTagName("Table")
                Set MyTable = HTML_Tables(5)
                    MyData = MyTable.Rows(1).Cells(1).InnerText
                    veri = Split(MyData, Chr(10))
                        For i = 1 To UBound(veri)
                            Cells(i, "a").Value = veri(i - 1)
                        Next
    End With
    Set HTML_Body = Nothing
    Set HTML_Tables = Nothing
    Set MyTable = Nothing
    Set IE = Nothing
End Sub

 

[Kemal Demir]

Sn.Ripek,

Çok Teşekkur ederim.