VBA网页抓取：登录后点击高级搜索链接报错91如何解决

报错核心原因 #

登录操作触发页面跳转后，你之前提前赋值的HTMLDoc变量仍然指向登录前的旧页面DOM，没有同步更新为登录后的新页面DOM，因此getElementById无法定位到目标元素，返回空值后调用Click方法就会触发91号对象未设置报错。

修复步骤 #

• 登录跳转的页面等待逻辑执行完成后，重新给HTMLDoc赋值为IE实例当前的最新文档对象
• 增加元素存在性校验逻辑，避免页面渲染延迟导致的偶发报错
• 可根据页面实际渲染速度增加短时间延时，确保目标元素已经加载完成

修正后代码 #

Private Sub CommandButton7_Click()

Dim ie As SHDocVw.InternetExplorer
Dim HTMLDoc As MSHTML.HTMLDocument
Dim targetLink As Object

Set ie = New InternetExplorerMedium
ie.Visible = True

ie.navigate ("website")

' 等待登录页加载完成
While ie.Busy Or ie.readyState <> 4: DoEvents: Wend

Set HTMLDoc = ie.document

HTMLDoc.all.txtUsername.Value = "username"
HTMLDoc.all.txtPassword.Value = "password"
HTMLDoc.all.imgbtnLogin.Click

' 等待登录后页面加载完成
While ie.Busy Or ie.readyState <> 4: DoEvents: Wend
' 重新赋值DOM对象，同步到登录后的新页面
Set HTMLDoc = ie.document
' 可选：增加1秒延时，适配慢加载的页面
Application.Wait Now + TimeValue("00:00:01")

' 先校验元素是否存在再执行点击
Set targetLink = HTMLDoc.getElementById("lnkAdvancedSearch")
If Not targetLink Is Nothing Then
    targetLink.Click
Else
    MsgBox "未找到高级搜索链接，请检查页面结构"
End If

End Sub

额外排查方向 #

如果按上述代码修改后仍有问题，可以做以下检查：

• 确认登录后页面的目标元素id确实是lnkAdvancedSearch，无拼写错误、大小写偏差
• 检查IE的保护模式设置，将目标站点加入IE受信任站点列表，避免跨权限无法获取页面DOM
• 确认目标元素没有嵌套在iframe中，如果存在iframe需要先定位到对应iframe再查找元素

内容的提问来源于stack exchange，提问作者andrewi