ie.busy nicht gut funktioniert [VBA]

Question

ich verwende:

While ie.busy 
DoEvents 
Wend 

' Some Code 

eine Pause in meinem Code hinzuzufügen, während Internet Explorer aktualisiert. Aber das scheint nicht gut zu funktionieren. Der 'Einige Code-Teil wird vorrichtig ausgeführt und wirft einen Fehler auf.

Ich habe versucht, auch andere Methoden zu verwenden. für z.B.

Errorhandler: 

While ie.busy 
DoEvents 
Wend 

On Error Goto Errorhandler 
'Some Code 

Aber auch das funktioniert nicht und manchmal wird der Code vor gereift ausgeführt.

Bitte eine unfehlbare Alternative vorschlagen, unseren Code zu ie.busy

Answer 1

In ist ie.Busy (InternetExplorer.Application Object) nicht sehr glaubwürdig. Hier ist, was wir verwenden und funktioniert:

Enum READYSTATE 
    READYSTATE_UNINITIALIZED = 0 
    READYSTATE_LOADING = 1 
    READYSTATE_LOADED = 2 
    READYSTATE_INTERACTIVE = 3 
    READYSTATE_COMPLETE = 4 
End Enum 

Dim strUrl 
Dim ie As Object 

Set ie = CreateObject("InternetExplorer.Application") 
'.... 
' do navigation... 
' 
strUrl = "http://www.example.com/" 
ie.Navigate strUrl 

' 
' waiting for the ie complete loading: 
' 
Do While (ie.Busy Or ie.READYSTATE <> READYSTATE.READYSTATE_COMPLETE) 
    DoEvents 
Loop 

' 
' here below you do stuffs on the new loaded URL: 
' 

Sie können es versuchen.