使用VBA打开IE模式Edge浏览器是否需修改代码？求实现示例

• 必须修改原有VBA代码。你之前使用的无Selenium自动化Edge的注册表配置方案，默认逻辑是拉起原生Chromium内核的Edge实例，无法直接触发IE模式，需要做少量代码适配，同时要提前完成Edge侧的IE模式配置作为前置条件。
• 核心适配逻辑不需要推翻原有代码结构：因为Edge IE模式原生兼容旧版IE的COM自动化接口，你之前写的DOM操作、页面交互类代码几乎可以直接复用，只需要调整对象初始化、实例拉起的相关逻辑即可。

可运行代码示例 #

前置检查：运行代码前请先确认，手动打开Edge访问你的目标业务站点时，地址栏会显示IE模式标识，证明站点已经被加入IE模式兼容列表，否则代码无法正常拉起IE模式实例。

Sub EdgeIEModeAutomation()
    Dim ieModeEdge As Object
    Dim pageDoc As Object
    
    ' 创建兼容IE模式的Edge实例对象，注册表配置正确时该ProgID不会拉起原生IE
    Set ieModeEdge = CreateObject("InternetExplorer.Application")
    
    ' 基础窗口配置
    With ieModeEdge
        .Visible = True ' 调试阶段建议设为True，正式运行可改为False隐藏窗口
        .AddressBar = True
        .MenuBar = False
        .ToolBar = False
        .StatusBar = False
        
        ' 替换为你需要访问的IE模式目标地址
        .Navigate "https://你的业务系统地址"
        
        ' 等待页面完全加载
        Do While .Busy Or .readyState <> 4
            DoEvents
        Loop
        
        ' 获取页面对象，后续DOM操作和旧版IE自动化逻辑完全一致
        Set pageDoc = .Document
        
        ' --------------------------
        ' 以下为测试操作示例，可按需替换
        ' 弹出当前页面标题
        MsgBox "IE模式页面加载完成，标题为：" & pageDoc.Title
        ' 示例：填充name属性为username的输入框
        If pageDoc.getElementsByName("username").Length > 0 Then
            pageDoc.getElementsByName("username")(0).Value = "测试账号"
        End If
        ' --------------------------
    End With

    ' 释放对象资源
    Set pageDoc = Nothing
    Set ieModeEdge = Nothing
End Sub

常见问题排查 #

• 如果运行代码后拉起的是原生旧版IE而非Edge IE模式：先检查你之前配置的Edge IE重定向注册表项是否正确，注意区分32位、64位程序对应的注册表路径，不要漏写配置项。
• 如果拉起的是原生Edge而非IE模式：检查目标站点是否被正确加入Edge的IE模式站点列表，确认站点没有被配置为默认用Chromium内核打开。
• 页面加载后DOM操作报错：确认页面已经完全加载完成，部分IE模式下的老旧业务系统加载速度较慢，可以适当增加固定等待时间再获取页面对象。

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