通过IE自动化控制器调用Edge遇运行时错误，求修复VBA代码以操作DOM

错误原因 #

你用microsoft-edge:协议启动Edge时，IE自动化对象只是触发Edge打开链接，实际网页的控制权并不在IE对象中，因此无法访问.Document属性，导致报错。

修正方案及代码 #

方案1：直接使用IE自动化（兼容多数网站） #

如果目标网站可以在IE模式下正常运行，直接修改代码去掉microsoft-edge:前缀，同时修正页面加载等待逻辑（原代码循环条件写反，会导致无限等待或提前执行后续代码）：

Sub OpenURL(ByVal SURL As String)
    Dim OIE As Object
    Dim htmlDoc As Object
    Set OIE = CreateObject("Internet Explorer.Application")
    
    With OIE
        .Visible = True
        .Navigate SURL
        
        ' 等待页面完全加载：Busy为False且ReadyState等于4（加载完成）
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        
        ' 成功获取HTML文档对象
        Set htmlDoc = .Document
        
        ' ------------------- DOM交互示例 -------------------
        ' 1. 根据ID点击按钮
        ' htmlDoc.getElementById("button-id").Click
        
        ' 2. 根据类名点击第一个匹配的按钮
        ' htmlDoc.getElementsByClassName("btn-submit")(0).Click
        
        ' 3. 给输入框赋值
        ' htmlDoc.getElementById("username").Value = "test-user"
        ' ---------------------------------------------------
        
        ' 按需关闭浏览器，若需保留可注释该行
        '.Quit
    End With
    
    ' 可后续使用htmlDoc处理HTML内容，比如输出页面标题
    ' MsgBox "页面标题：" & htmlDoc.Title
    
    Set OIE = Nothing
    Set htmlDoc = Nothing
End Sub

Sub testing()
    OpenURL "https://www.example.com"
End Sub

方案2：直接调用Edge自动化接口（需Edge支持） #

若必须使用Edge而非IE，可直接创建Edge应用对象（需确保Edge版本支持自动化，建议使用较新版本）：

Sub OpenURLWithEdge(ByVal SURL As String)
    Dim edgeApp As Object
    Dim htmlDoc As Object
    Set edgeApp = CreateObject("MicrosoftEdge.Application")
    
    With edgeApp
        .Visible = True
        .Navigate SURL
        
        ' 等待页面加载完成
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
        
        Set htmlDoc = .Document
        
        ' 同样可执行DOM交互操作，示例参考方案1
        ' htmlDoc.getElementsByTagName("button")(0).Click
        
        '.Quit ' 按需关闭
    End With
    
    Set edgeApp = Nothing
    Set htmlDoc = Nothing
End Sub

DOM交互常见操作示例 #

• 按ID定位元素：htmlDoc.getElementById("元素ID")，可执行.Click（点击）、.Value（赋值/取值）等操作
• 按类名定位：htmlDoc.getElementsByClassName("类名")返回元素集合，需通过索引指定具体元素（如(0)取第一个）
• 按标签名定位：htmlDoc.getElementsByTagName("标签名")，适用于批量获取同类型元素（如所有<button>）
• 获取页面文本：htmlDoc.body.innerText或htmlDoc.body.innerHTML（获取HTML源码）

注意事项 #

• 部分网站有反爬机制，可能会阻止自动化工具访问，可尝试禁用浏览器的JavaScript或调整安全设置
• 若页面加载缓慢，可在等待循环后添加延时：Application.Wait Now + TimeValue("00:00:03")（等待3秒）
• 确保Office/VBA环境有权限调用浏览器自动化接口，部分公司安全策略可能限制此操作

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