ie.busy都不盡如人意[VBA]

Question

我使用：

While ie.busy 
DoEvents 
Wend 

' Some Code 

要在我的代碼添加暫停，而IE瀏覽器刷新。但是這似乎沒有效果。 '部分代碼部分正在過早執行並拋出錯誤。

我嘗試過使用其他方法。例如，

Errorhandler: 

While ie.busy 
DoEvents 
Wend 

On Error Goto Errorhandler 
'Some Code 

但即使這樣做沒有起作用，有時代碼已經成熟地被刪除了。

請提出一個可靠的替代ie.busy

Answer 1

在我們的代碼，ie.Busy（InternetExplorer.Application對象）是不太可信。這裏是我們使用和運作的：

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: 
' 

你可以試試。