如何让 VBA 等待 IE 页面加载？

Question

我正在通过 VBA 使 IE 自动化，但我似乎无法让 VBA 代码等到页面加载完毕后再抓取文档。由于我的代码太快，这导致了各种失败。如何让 VBA 等待 IE 页面加载？我尝试过的许多方法都是在 stackoverflow 上找到的，但似乎都不适合我。

ie 是我的InternetExplorer 对象。

我试过了，没用：

Do
    If ie.readyState = 4 Then
        Exit Do
    Else
        DoEvents
    End If
Loop

还有：

Do While ie.Busy Or Not ie.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop

还有：

Do 
    DoEvents
Loop Until ie.ReadyState = READYSTATE_COMPLETE

我什至尝试过：

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

...

Do
    Sleep 250
Loop Until ie.readyState = READYSTATE_COMPLETE

这些都不起作用，代码立即跳过循环并尝试抓取页面的 html 文档，即使页面尚未完成加载。

我正在导航到登录页面，填写用户名和密码，然后单击登录。登录后，我需要更改一些字段（下拉菜单和文本框）。更改这些字段后，我使用 VBA 单击按钮以保存设置，然后导航到另一个页面。该代码没有正确设置字段，因为它跳过了等待页面加载的过程，因此我输入了设置不正确的代码的下一部分。

我想知道这是否可能是由于 ajax 请求？我什至不知道该怎么说。

在抓取 html 文档之前，是否有可靠的方法在 IE 中等待页面加载？

我知道代码正在做我想做的事，因为如果我手动单步执行它并等待页面加载，它会按预期运行。

如有必要，我可以添加更多说明。

Answer 1

您可以等待DocumentComplete 事件触发。但为此，您需要将浏览器控件放置在工作表上。在该工作表的代码中，输入此代码（假设您将浏览器控件命名为 ie）：

Private docComplete As Boolean

Private Sub ie_DocumentComplete(ByVal pDisp As Object, url As Variant)
    docComplete = True
End Sub

Public Sub NavigateAndWait(url As String)
    docComplete = False
    ie.Navigate url
    Do
        DoEvents
    Loop Until docComplete
End Sub

Sub Main()
    ' Example use
    NavigateAndWait "www.google.com"
    MsgBox "Ready"
End Sub

通过将NavigateAndWait 设为Public Sub，您可以从您可能拥有的其他模块中调用它。最好将需要ie 的代码移动到此工作表的模块中。请注意，浏览器控件必须可见且位于活动工作表上才能触发 DocumentComplete 事件。

Answer 2

对不起，我没有足够的代表，所以我必须添加一个答案，但您在第三个选项中尝试了 1000 或 2000（1 或 2 秒）吗？根据 IE 的操作，加载时间可能超过 250 毫秒。