使用Excel VBA通过IE点击按钮遇问题求助（Error 91及页面冻结）

问题1：Error 91（Object variable not set） #

你的原代码存在两个关键问题：

• 变量名拼写错误：Set hmtl = .Document里的hmtl是笔误，应改为html
• 页面等待逻辑顺序错误：需先等页面完全加载完成，再获取Document对象

修正后的代码：

Global driver As Object
Dim html As HTMLDocument

Set driver = CreateObject("InternetExplorer.Application")
With driver
    Const Url$ = "My URL"
    .Visible = True
    .Navigate Url
    
    ' 等待页面完全加载，添加30秒超时避免死循环
    Dim startTime As Double
    startTime = Timer
    Do
        DoEvents
    Loop Until .ReadyState = 4 And Not .Busy Or Timer - startTime > 30
    
    Set html = .Document ' 修正变量名拼写错误
    ' 先检查元素是否存在再执行点击
    Dim btn As Object
    Set btn = html.querySelector("input#btnFilter")
    If Not btn Is Nothing Then
        btn.Click
    Else
        MsgBox "目标按钮未找到"
    End If
End With

问题2：点击后页面冻结 #

使用getElementsByClassName("objectButton")(1).Click无报错但页面冻结，可尝试以下方案：

1. 修正元素索引：getElementsByClassName返回的集合索引从0开始，你用(1)可能选中了无关元素，试试改成(0)：

driver.Document.getElementsByClassName("objectButton")(0).Click

2. 触发原生onclick事件：部分IE页面的按钮需要直接触发绑定的事件才有效，而非调用Click方法：

Dim btn As Object
Set btn = html.getElementById("btnFilter")
If Not btn Is Nothing Then
    btn.FireEvent "onclick"
End If

3. 等待元素完全渲染：页面ReadyState=4后，按钮可能还未完成事件绑定，增加元素等待逻辑：

Set btn = Nothing
Do While btn Is Nothing And Timer - startTime < 30
    DoEvents
    On Error Resume Next
    Set btn = html.getElementById("btnFilter")
    On Error GoTo 0
Loop
If Not btn Is Nothing Then btn.Click

4. 调整IE安全设置：公司环境下可能限制了ActiveX权限，把目标站点添加到IE的「信任站点」，并启用「允许脚本初始化的窗口，不受大小或位置限制」等相关设置。
5. 兜底方案：SendKeys模拟点击：如果以上方法均无效，先让按钮获得焦点，再用回车模拟点击：

btn.Focus
SendKeys "{ENTER}"

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