• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Soru XMLHTTP nesnesi ile veri çekimi

  • Konbuyu başlatan Konbuyu başlatan ibere
  • Başlangıç tarihi Başlangıç tarihi

ibere

Altın Üye
Katılım
31 Mart 2018
Mesajlar
129
Excel Vers. ve Dili
Office 365
Arkadaşlar XMLHTTP nesnesi ile veri çekmeye çalışıyorum. Web sitesi üzerinden alacağım tabloyu belirliyorum fakat ilgili kısmı kod olarak çekmekte başarısız kalıyorum.

239398

Kod:
Sub Test4()

    Dim myURL As String
    Dim objHTTP As XMLHTTP, HTMLfile As HTMLDocument, tablo As Object
 
    Set HTMLfile = CreateObject("HTMLFILE")
    Set objHTTP = CreateObject("MSXML2.XMLHTTP")
 
    myURL = "https://steamdb.info/app/378120/"
 
    objHTTP.Open "GET", myURL, False
    objHTTP.send
 
    HTMLfile.body.innerHTML = objHTTP.responseText
    
    Debug.Print HTMLfile.body.innerHTML
    
    Set tablo = HTMLfile.getElementsByClassName("table table-fixed table-prices table-hover table-sortable")
    Range("a1") = tablo


    Set objShows = Nothing
    Set HTML = Nothing
    Set HTTP = Nothing

End Sub
 
Geri
Üst