Soru XMLHTTP nesnesi ile veri çekimi

ibere

Altın Üye
Katılım
31 Mart 2018
Mesajlar
129
Excel Vers. ve Dili
Office 365
Altın Üyelik Bitiş Tarihi
21-04-2027
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
 
Üst