VBA InternetExplorer 页面加载错误

Question

当我使用 F5 运行下面的代码时，它会在此行显示错误消息 "Object variable or with block variable not set" (Set DivClasses = HTMLDoc.getElementsByClassName("srp_containerfl "))，因为点击按钮后页面没有完全加载，(Do While IEObj.readyState 4 or IEObj.Busy: DoEvents: Loop) 这行代码不能正常工作，因为它在完全加载页面之前会进入下一行。

如果我手动运行此代码并给一些时间来加载页面，它运行良好。

Sub Fetch_NaukriDotCom_Data()

Dim IEObj                   As InternetExplorer
Dim HTMLDoc                 As MSHTML.HTMLDocument
Dim divcl                   As MSHTML.IHTMLElement
Dim DivClass                As MSHTML.IHTMLElement
Dim DivClasses              As MSHTML.IHTMLElementCollection
Dim DataContainer           As MSHTML.IHTMLElement
Dim DataContainerChild      As MSHTML.IHTMLElement
Dim DataContainerChilds     As MSHTML.IHTMLElementCollection
Dim DataOneContainer        As MSHTML.IHTMLElement
Dim DataOneContainers       As MSHTML.IHTMLElementCollection
Dim StrClassName            As String
Dim Int_i                   As Integer

Set IEObj = New InternetExplorer
IEObj.Visible = True
IEObj.navigate "https://www.naukri.com/"

With IEObj
    Do While .readyState <> 4 Or .Busy: DoEvents: Loop

    .document.getElementsByName("qp").Item.innerText = "VBA Developer"
    .document.getElementsByName("ql").Item.innerText = "Noida"
    .document.getElementById("qsbFormBtn").Click
End With

Do While IEObj.readyState <> 4 Or IEObj.Busy: DoEvents: Loop 'This loop is not working properly, as it is going
                                                             'to next line, without completely loading the page

Set HTMLDoc = New MSHTML.HTMLDocument
Set HTMLDoc = IEObj.document
Set DivClasses = HTMLDoc.getElementsByClassName("srp_container fl  ") 'Here Error occuring

Set DataContainerChilds = DivClasses.Item.Children

结束子

请帮我解决这个问题。

谢谢 卡西夫

Answer 1

是的 IE 有时很有趣，因此我使用它

替换

Do While IEObj.readyState <> 4 Or IEObj.Busy: DoEvents: Loop

与

Do While IEObj.readyState <> 4 Or IEObj.Busy: Wait 5 : Loop

然后将此过程粘贴到代码的末尾。 Wait 5 表示等待 5 秒再检查状态。

Private Sub Wait(ByVal nSec As Long)
    nSec = nSec + Timer
    While nSec > Timer
        DoEvents
    Wend
End Sub