如何通过VBS调用运行xlam格式的Excel宏脚本？

根因说明 #

• 用CreateObject("Excel.Application")创建的Excel自动化实例，默认不会加载用户预先配置的启用加载项，也不会触发加载项的Workbook_Open事件，所以你看不到功能区的加载项标签，也无法直接调用里面的宏。
• 原脚本开启了On Error Resume Next，所有运行错误都会被静默忽略，无法定位具体失败节点；同时存在变量名不匹配、对象未正确释放的问题。

修复后的VBS脚本（可直接放桌面作为快捷方式启动） #

Option Explicit
' 错误捕获方便排查问题
On Error Resume Next

Dim objExcel, objAddIn, strXlamPath
strXlamPath = "C:\Users\a78208\AppData\Roaming\Microsoft\AddIns\Buffertplatser.xlam"

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
' 可根据需要选择是否新建空白工作簿，调用read_history_ext的话可以不用新建
' objExcel.Workbooks.Add

' 手动注册并启用加载项，触发Workbook_Open事件
Set objAddIn = objExcel.AddIns.Add(strXlamPath, True)
objAddIn.Installed = True

If Err.Number <> 0 Then
    MsgBox "加载xlam失败：" & Err.Description
    objExcel.Quit
    Set objExcel = Nothing
    WScript.Quit
End If
On Error GoTo 0

' 调用宏，两种写法选一种即可，优先用完整路径写法避免重名冲突
' objExcel.Run "read_history"
objExcel.Run "'Buffertplatser.xlam'!Modul1.read_history"
' 要调用read_history_ext的话换这行就行
' objExcel.Run "'Buffertplatser.xlam'!Modul1.read_history_ext"

' 正确释放对象
Set objAddIn = Nothing
Set objExcel = Nothing

额外注意事项 #

• 请先将xlam文件所在的文件夹加入Excel受信任位置，或在Excel信任中心将宏安全级别调整为「启用所有宏」，避免宏被拦截导致调用失败。
• 确保xlam中read_history、read_history_ext过程的声明为Public，私有过程无法跨文件调用。
• 如果你不想用VBS脚本，也可以直接创建Excel快捷方式，修改目标为：
  "你的Excel安装路径\EXCEL.EXE" /e /m "'Buffertplatser.xlam'!Modul1.read_history_ext"
  直接点击快捷方式即可启动运行。

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