创建New Excel.Application时出现Run-time error Element not found错误如何解决

1. 校验程序位数匹配 #

COM调用要求宿主程序（SOLIDWORKS/Outlook）与Excel的位数完全一致，只要有一方不匹配就会触发激活错误：

• 查看Excel位数：打开Excel->文件->账户->关于Excel，顶部会标注32位/64位
• 查看SOLIDWORKS/Outlook位数：对应程序内打开帮助->关于页面查看位数
• 若位数不匹配，卸载对应版本Office，安装与宿主程序位数一致的版本即可

2. 修复Office COM注册项 #

卸载重装无法清理损坏的注册表项时，优先走官方修复流程：

1. 打开控制面板->程序和功能，找到已安装的Microsoft Office条目
2. 右键点击->更改->选择联机修复，等待修复完成后重启电脑
3. 若修复后仍报错，先备份注册表，再删除HKEY_CLASSES_ROOT\Excel.Application整个注册表项，重新执行一次联机修复，系统会自动生成正确的COM注册条目

3. 清理预装Office残留 #

新出厂电脑自带的预装试用版Office为APPX部署格式，会和后来安装的桌面版Office抢COM注册：

1. 以管理员权限打开Windows终端/PowerShell
2. 执行命令Get-AppxPackage *office*，如果返回带Office.Desktop.Excel的条目，说明存在预装残留
3. 执行命令Get-AppxPackage *office* | Remove-AppxPackage删除所有预装Office组件，再重新安装正式版Office

4. 修正DCOM权限配置 #

权限不足也会导致COM激活失败：

1. 按Win+R输入dcomcnfg打开组件服务
2. 依次展开：组件服务->计算机->我的电脑->DCOM配置
3. 找到Microsoft Excel Application条目，右键->属性->安全标签
4. 分别对启动和激活权限、访问权限、配置权限三项点击编辑，添加当前Windows登录用户，授予全部允许权限，确定后重启电脑

临时替代方案 #

如果需要临时恢复功能，可以用以下代码绕过直接New的报错：

Dim xlApp As Object
Sub main()
    ' 先启动Excel进程
    Shell "excel.exe", vbNormalFocus
    ' 等待2秒保证Excel启动完成
    Application.Wait Now + TimeValue("00:00:02")
    ' 绑定已启动的Excel实例
    Set xlApp = GetObject(, "Excel.Application")
End Sub

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