Win11下Excel VBA调用Edge自动启动应用跳过确认弹窗方案咨询

问题原因 #

Win11已全面停用原生IE浏览器，原有CreateObject("InternetExplorer.Application")创建IE对象的代码会自动触发Edge的IE兼容模式接管，你遇到的弹窗是Edge默认的ClickOnce应用启动确认提示，可通过以下方案解决：

解决方案 #

方案1：直接调用ClickOnce启动工具（最推荐，无浏览器依赖） #

你要启动的是ClickOnce类型的应用，不需要通过浏览器调用，直接用系统自带的dfsvc.exe即可直接拉起应用，完全不会触发弹窗，替换你原有的函数代码即可：

Function pubRobo(RobInp, RobOut)
    Dim shellObj As Object
    Set shellObj = CreateObject("WScript.Shell")
    ' 直接用dfsvc启动ClickOnce应用，无需调用浏览器
    shellObj.Run "dfsvc.exe http://robostorage.blob.core.windows.net/clickonce/PbnPlayer/RoboBridge.PbnPlayer.application?pbnFileName=" & RobInp, 0, False
    Set shellObj = Nothing
End Function

该方法完全绕开浏览器，不会有任何弹窗打断自动化流程，适配Win10/Win11全版本系统，只要系统装有.NET Framework（Windows默认预装）即可正常运行。

方案2：修改Edge配置（保留原有IE调用逻辑时使用） #

如果必须保留原有调用IE的代码，按以下步骤配置即可消除弹窗：

• 打开Edge设置，搜索「Internet 选项」，进入传统Internet属性面板
• 切换到「安全」选项卡，选择「受信任的站点」，点击「站点」按钮，把http://robostorage.blob.core.windows.net添加到信任站点列表，取消勾选「该区域中的所有站点要求服务器验证(https:)」
• 点击「自定义级别」按钮，找到「启动应用程序和不安全文件」选项，设置为「启用(不安全)」，确认保存配置
• 回到Edge设置，搜索「ClickOnce 支持」，设置为「允许 ClickOnce 应用直接运行」

配置完成后再运行原有VBA代码就不会再弹出确认窗口。

方案3：组策略配置（批量部署场景使用） #

企业批量部署的场景可以直接配置Edge管理模板策略：

• 配置AutoOpenFileTypes策略，添加.application后缀为自动打开类型
• 配置AllowClickOnce策略，设置为启用
• 配置InternetExplorerIntegrationSiteList策略，把目标域名加入IE兼容站点列表

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