xml verisini görme

[Erdem Akdemir]

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 web_deneme2()

Dim xmlsayfa As MSXML2.XMLHTTP60
Dim htmldoc As MSHTML.HTMLDocument
Dim tables As IHTMLElementCollection
Dim table As IHTMLElement

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

xmlsayfa.Open "GET", "https://www.maliyetbul.com/tuik-fiyat-farkinda-kullanilan-endeksler-yi-ufe.php", False
xmlsayfa.send

htmldoc.body.innerHTML = xmlsayfa.responseText

Set tables = htmldoc.getElementsByTagName("td")


For Each table In tables
    
    Debug.Print table.innerText
Next table
End Sub

 

[Haluk]

XML tablosu:

https://www.maliyetbul.com/LibGold/zTG.php?Neki=UFEG&NekiYil=2021

.

 

[Erdem Akdemir]

Haluk bey,

Yeni adresi verdim ama XML verisini alamadım. Sayfada veriler görünüyor ama Html'in içi boş geliyor kodda.

Sub web_deneme2()

Dim xmlsayfa As MSXML2.XMLHTTP60
Dim htmldoc As MSHTML.HTMLDocument
Dim tables As IHTMLElementCollection
Dim table As IHTMLElement

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

xmlsayfa.Open "GET", "https://www.maliyetbul.com/LibGold/zTG.php?Neki=UFEG&NekiYil=2021", False
xmlsayfa.send

htmldoc.body.innerHTML = xmlsayfa.responseText

Debug.Print htmldoc.body.innerHTML

Set tables = htmldoc.getElementsByTagName("div")

For Each table In tables
    
    Debug.Print table.innerText
Next table
End Sub

 

[Haluk]

Verdiğim URL'i kullanarak XML kodlaması yapacaksınız....

.

 

[Erdem Akdemir]

Haluk bey dediğinizi anladım. Bu site biraz farklıymış.
MSXML2.DOMDocument nesnesi ile olur gibime geliyor.

 

[Haluk]

Ben de onu demiştim zaten...

.