Do while döngüsü

[ocsnltd]

Excelde asagidaki do while döngüsü kullanıyorum...

Ancak bazı site adreslerinde WebBrowser1.ReadyState değeri hiçbir zaman 4 olmuyor ve döngü sürekli dönüp duruyor.... Böyle bir durumda örnegin 30 sn sonra do while döngüsünden cikmasini nasil saglarim...???

WebBrowser1.ReadyState <> 4 sartini kontrol etsin... Ancak 30 sn sart saglanmiyorsa devam etsin gibi???

Do While WebBrowser1.ReadyState <> 4 : DoEvents: Loop
Do While WebBrowser1.Busy = True: DoEvents: Loop

 

[Recep İpek]

WebBrowser'dan pek anlamam ama san&#305;r&#305;m a&#351;a&#287;&#305;daki kodlar i&#351;inize yarayabil
ir.

Sub TestShowForm()
Const url As String = "http://www.excel.web.tr"
With UserForm1
.WebBrowser1.Navigate url
Do Until .WebBrowser1.ReadyState = 4
DoEvents
Loop
.Show
End With
End Sub

veya

Sub Y&#252;kle()
WebBrowser1.Navigate ("http://www.excel.web.tr")

Do
DoEvents
If Not WebBrowser1.Busy Then Exit Do
Loop

MsgBox "Y&#252;kleme Bitti!"

End Sub