internet veri alma xml bilgisi

[Erdem Akdemir]

Merhaba,

Aşağıdaki kodda veri almak istediğim site XML bilgisini göndermiyor. Web siteleri tablo bilgisini saklanabiliyor mu?
Bu siteden veri almak için internet explorer nesnesini mi kullanmak gerekir.

Sub formkontrol4()

Dim xmlsayfa As MSXML2.XMLHTTP60
Dim htmldoc As MSHTML.HTMLDocument
Dim tables As IHTMLElementCollection
Dim data As IHTMLElement
Dim satir  As IHTMLElement
Dim hücre As IHTMLElement

Set xmlsayfa = New MSXML2.XMLHTTP60
Set htmldoc = New MSHTML.HTMLDocument

xmlsayfa.Open "GET", "https://www.btso.org.tr/?page=databank/ufetufe.asp&qufetufeyear=2021", False
xmlsayfa.send

If xmlsayfa.Status <> 200 Then Exit Sub

htmldoc.body.innerHTML = xmlsayfa.responseText

Set tables = htmldoc.getElementsByTagName("table")

Debug.Print xmlsayfa.responseText

For Each data In tables


Next data

End Sub

 

[Haluk]

Aşağıdaki linkte XML olarak yayınlanan verilerin URL'ini vermiştim. İşinize yaramadı mı?

xml verisini görme

Merhaba, Aşağıdaki adresteki verileri XMLHTTP nesnesi ile almak istiyorum ama sonuç gelmiyor. Siteden xml verisi gelmiyor olabilir mi? Bunun kontrolü nasıl yapılıyor. İnnerHTML'in içinde tablodaki veri yok. "https://www.maliyetbul.com/tuik-fiyat-farkinda-kullanilan-endeksler-yi-ufe.php" Sub...

www.excel.web.tr

.

 

[Erdem Akdemir]

Haluk bey ilginiz için teşekkür ederim .
Öğrenmek için farklı sitelerden veri almaya çalışıyorum.