Do while readystate yerine alternatif

[a long time ago]

Merhaba,

Aşağıdaki kod ile Investing.com'dan kurları çekiyorum. Ancak bir süredir hazırladığım kod yanıt vermemeye başladı.

Tahminim kodun şu kısmı sorun çıkarıyor:

 With ie
        Do While .Busy: DoEvents: Loop
        Do Until .readyState = 4: DoEvents: Loop
    End With

Alternatif olarak ne kullanabilirim?

 

[Haluk]

Merhaba;

Açıkçası, kullanmış olduğunuz yöntemle sitelerden veri alınabilir ama bazen de böyle sorunlarla karşılaşabilirsiniz.

Ben bahsettiğiniz siteden BIST-100 endeks verilerini başka türlü bir kodla çekiyorum, sorun olmuyor.... Aşağıdaki linkte görebilirsiniz.

http://www.excel.web.tr/f52/bist-100-anlyk-verileri-t169875.html#post926645

.

 

[askm]

Application.Wait Now + TimeValue("00:00:03")
şeklinde sitenin yüklenmesini bekleyebilirsiniz. Bilgisayarın hızına göre saniyeyi değiştirebilirsiniz. Ama sorun office güncellemesinden kaynaklı gibi.