Excel通过Shell执行VBS调用Solver宏报错1004问题咨询

我经常碰到用户遇到这个问题，核心原因其实很简单——手动打开Excel时你可能已经手动激活过Solver加载项，但VBS调用的是一个全新的、无交互的Excel实例，它默认不会自动加载Solver，自然就找不到SolverReset或Solver这类相关宏了。下面是几个靠谱的解决办法：

1. 在VBS脚本中主动加载Solver加载项 #

既然VBS启动的Excel是干净的环境，那我们就主动在脚本里把Solver加载上。给你个示例代码，注意调整路径适配你的Office版本和位数：

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = False ' 调试时可以设为True，方便查看运行状态

' 定义Solver加载项路径，根据你的Office版本调整
Dim solverPath
' Office 365/2016 64位示例路径
solverPath = "C:\Program Files\Microsoft Office\root\Office16\SOLVER.XLAM"
' 32位Office请用这个路径：C:\Program Files (x86)\Microsoft Office\Office16\SOLVER.XLAM

' 先检查加载项是否已注册，避免重复加载报错
Dim addIn
On Error Resume Next
Set addIn = objExcel.AddIns("Solver Add-In")
On Error GoTo 0

If addIn Is Nothing Then
    ' 如果加载项未被系统识别，先添加到加载项列表
    Set addIn = objExcel.AddIns.Add(solverPath)
End If

' 激活加载项
addIn.Installed = True

' 接下来正常处理你的工作簿和宏
Set objWorkbook = objExcel.Workbooks.Open("你的目标文件路径.xlsx")
objExcel.Run "你的宏名称"
objWorkbook.Save
objWorkbook.Close
objExcel.Quit
Set objExcel = Nothing

注意：Office版本对应的数字，Office16对应2016/365，Office15对应2013，Office14对应2010，按需修改路径里的OfficeXX部分。

2. 检查并注册Solver组件 #

如果路径没问题但还是报错，可能是Solver的COM组件没正确注册。手动注册一下：

1. 右键点击命令提示符，选择「以管理员身份运行」
2. 输入对应版本的注册命令：
   • 64位Office：

     regsvr32 "C:\Program Files\Microsoft Office\root\Office16\SOLVER.DLL"
     

   • 32位Office：

     regsvr32 "C:\Program Files (x86)\Microsoft Office\Office16\SOLVER.DLL"
     

3. 执行后如果提示「DllRegisterServer在SOLVER.DLL已成功」，就说明注册完成了。

3. 临时调整Excel的宏安全设置 #

VBS调用的Excel实例可能用了更严格的宏安全策略，导致Solver的内置宏被拦截。你可以在VBS里临时降低自动化安全级别（注意：仅在处理可信文件时使用，避免安全风险）：
在创建Excel对象后添加这行代码：

objExcel.AutomationSecurity = 1 ' 对应msoAutomationSecurityLow，允许运行宏

4. 排查权限问题 #

如果你的VBS是用普通用户权限运行的，可能没有读取Office安装目录下Solver文件的权限。试试右键点击VBS脚本，选择「以管理员身份运行」，看是否能解决问题。如果是批量处理的定时脚本，需要给运行脚本的账户赋予Office安装目录的读取权限。

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