webden liglerini almak

[ismailayan]

merhaba arkadaşlar

netten aşağıdaki netten genel,içerde ve dışardaki takımların liglere göre excele aktarmak istiyorum.

bu konuda yardımınızı bekliyorum...


http://www.spordostluktur.com/dunya_puan_.html

 

[Zeki Gürsoy]

Merhaba,

Şu proseduru çalıştırın...

Sub Lig_WEB()
    arr1 = Array("Genel", "İçeride", "Dışarıda")
    
    arr2 = Array( _
    "http://exchange.sahadan.com/Exchange/TablesAjax.aspx?t=1&s=1&sn=10491&psn=0", _
    "http://exchange.sahadan.com/Exchange/TablesAjax.aspx?t=2&s=1&sn=10491&psn=0", _
    "http://exchange.sahadan.com/Exchange/TablesAjax.aspx?t=3&s=1&sn=10491&psn=0")

    For m = 1 To 3
        Set sh = Worksheets.Add(after:=Sheets(Sheets.Count))
        sh.Name = arr1(m - 1)
        
        Set HTTP = CreateObject("MSXML2.XMLHTTP")
        Set doc = CreateObject("HTMLFile")
        
        HTTP.Open "get", arr2(m - 1), False
        HTTP.send
        
        doc.write (HTTP.responsetext)
        
        Set tbl = doc.getElementsByTagName("table").Item(0)
        
        For i = 0 To tbl.Rows.Length - 1
            For j = 0 To tbl.Rows(i).Cells.Length - 1
                sh.Cells(i + 1, j + 1) = tbl.Rows(i).Cells(j).innerText
            Next
        Next
        
        sh.Range("a:l").Columns.AutoFit
        
        Set tbl = Nothing
        Set doc = Nothing
        Set HTTP = Nothing
    
    Next

End Sub

 

[ismailayan]

harikasınız siz...


bilmek böyle bir şey olsa gerek..

gerçi burdaki sonuclarda arı sayfaları almış ama

ben tek sayfada takımların genel içerde ve dışarda sonuçlarını almak istiyorum...

bu konuda da beni yönlendirirseniz çok memnun olurum

 

[ismailayan]

arkadaşlar yardımınızı bekliyorum...


o kdr zor olmasa gerek