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.
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