xmlhttp sayfanın geç yüklenmesi

[Erdem Akdemir]

Merhaba,

Aşağıdaki koddaki adreste bazı durumlarda aşağıdaki nesne geç yükleniyor.
Manuel olarak kontrol ettiğimde 2-3 saniye sonra borsanın sayısal bilgisi geliyor.
XMLHTTP yöntemi için nesnesin yüklenmesinin beklenmesini nasıl kontrol edebiliriz.

https://borsa.doviz.com/endeksler/XU100

text-xl font-semibold text-white

Dim xmlsayfa As MSXML2.XMLHTTP60
Dim htmldoc As MSHTML.HTMLDocument
'Dim tables As IHTMLElementCollection
Dim data, data2 As IHTMLElementCollection

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

xmlsayfa.Open "GET", "https://borsa.doviz.com/endeksler/XU100", False
xmlsayfa.send

If xmlsayfa.Status <> 200 Then Exit Sub

htmldoc.body.innerHTML = xmlsayfa.responseText

Set data = htmldoc.getElementsByclassname("text-xl font-semibold text-white")
'Set data = htmldoc.getElementsByclassname("text-md font-semibold text-white mt-4")

Set data2 = htmldoc.getElementsByclassname("nowrap color-up font-semibold")
If data2.Length < 1 Then Set data2 = htmldoc.getElementsByclassname("nowrap color-down font-semibold")

Range("G6").Value = Split(data2.Item(0).innerText, " ")(0)
Range("G7").Value = Replace(Split(data2.Item(0).innerText, " ")(2), "?", "")

Range("F6").Value = data.Item(0).innerText * 1

 

[Korhan Ayhan]

Merhaba,

Belki işinize yarayabilir.

https://stackoverflow.com/questions/32359729/vba-xml-v6-0-how-to-make-it-wait-for-page-to-load

 

[Erdem Akdemir]

Korhan bey merhaba,

Denedim ama istediğim sonucu alamadım.