VBA操作Edge浏览器点击页面按钮报对象变量未设置错误如何解决

直接报错原因 #

你代码中声明了HTMLDocument类型的变量doc，但全程没有对该变量进行赋值，调用doc.getElementById时就会触发Object Variable or With Block Variable not set错误。

根本逻辑问题 #

你通过ShellExecute调用microsoft-edge:协议打开的是Chromium内核的Edge浏览器，传统VBA对接IE的DOM操作接口无法直接读取现代Edge的页面内容，原有基于HTMLDocument的操作逻辑本身就不兼容普通模式的Edge。

适配方案（无需安装额外插件） #

单位不允许安装Selenium等额外工具的前提下，可以用Edge内置的IE兼容模式实现原有自动化逻辑，调整步骤如下：

1. 先在Edge浏览器中添加目标站点到IE兼容列表：打开Edge设置→默认浏览器→在「Internet Explorer 兼容性」板块添加你的目标站点URL，勾选「在IE模式下打开这些站点」
2. 调整VBA代码如下：

Sub OPS()    
    Dim IE As Object
    Dim doc As HTMLDocument    
    Dim myBtn As Object
    ' 创建IE对象，实际会调用Edge的IE模式打开站点
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    IE.Navigate "http://*************************.aspx"
    ' 等待页面加载完成，比固定时长等待更稳定
    Do While IE.Busy Or IE.ReadyState <> 4
        DoEvents
    Loop
    Set doc = IE.Document
    Set myBtn = doc.getElementById("ctl00_ctl36_g_679d59b8_c496_4c55_9e06_d920dc9e0fb7_ctl01_ctl00_toolBarTbl_RptControls_ctl00_diidIONewItem")
    If Not myBtn Is Nothing Then
        myBtn.Click
    Else
        MsgBox "未找到目标按钮"
    End If
    ' 后续可按需添加IE对象释放逻辑
End Sub

可选替代方案 #

如果无法开启IE模式，可调用Windows系统内置的UIAutomation接口，通过UI元素特征定位按钮模拟点击，无需安装任何第三方插件。

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