VBA脚本替换IE为Microsoft Edge时遇运行时错误429求助

错误原因 #

你使用的MSEdge.Application是旧版EdgeHTML内核Edge的ActiveX ProgID，当前主流的Chromium内核Microsoft Edge已经移除了该ActiveX组件，因此CreateObject无法找到对应的组件，触发429错误。

解决方案 #

方案1：直接调用Edge程序打开URL（最简单，无ActiveX依赖） #

使用Shell函数直接启动Edge并打开目标URL，无需依赖ActiveX组件，完全避免429错误：

Dim URL As String
URL = "https://your-target-url.com" '替换为你的目标URL
Shell "msedge.exe " & Chr(34) & URL & Chr(34), vbNormalFocus

添加Chr(34)是为了处理包含空格的URL，确保参数传递正确。

方案2：若需页面自动化控制（进阶） #

如果需要对Edge页面进行自动化操作（如点击、填写表单），需使用Selenium Basic配合Edge WebDriver：

1. 下载并安装Selenium Basic（需匹配你的系统和Office版本）
2. 下载与你的Edge版本一致的Edge WebDriver，将其所在路径添加到系统环境变量PATH中
3. 使用以下VBA代码：

Dim driver As New EdgeDriver
driver.Get "https://your-target-url.com"
' 后续可添加自动化操作代码，如driver.FindElementById("id").Click

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