如何从MS Access中运行Personal.xlsb内的Excel宏？

可行性结论 #

完全可行，只要确保Personal.xlsb在你启动的Excel实例中正常加载，并且宏的引用格式正确即可。

现有代码的问题分析 #

你遇到的错误1004主要来自两个原因：

1. 语法错误：代码末尾缺少闭合的引号和括号，导致执行时解析失败；
2. 宏引用格式错误：模块名和宏名之间未用分隔符（.或!），直接拼接成Module2My_macro，Excel无法识别这是一个合法的宏路径；
3. ActiveWorkbook的不确定性：新建的Excel实例中，ActiveWorkbook可能指向Personal.xlsb而非你生成的目标文件，导致宏引用对象错误。

修复方案 #

1. 确保Personal.xlsb加载

新建的Excel实例默认会加载Personal.xlsb，但如果加载失败，可以手动打开：

Dim xlApp As Excel.Application
Set xlApp = CreateObject("Excel.Application")

' 检查Personal.xlsb是否已加载，未加载则手动打开
Dim wbPersonal As Workbook
On Error Resume Next
Set wbPersonal = xlApp.Workbooks("PERSONAL.XLSB")
On Error GoTo 0
If wbPersonal Is Nothing Then
    ' 替换为你实际的Personal.xlsb路径
    Set wbPersonal = xlApp.Workbooks.Open("C:\users\myname\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB")
End If

2. 正确调用宏

宏的标准引用格式为：工作簿名!模块名.宏名（适用于标准模块中的公共宏）。修正你的调用代码：

' 先获取你生成的目标Excel工作簿（替换为实际文件名）
Dim targetWB As Workbook
Set targetWB = xlApp.Workbooks("你的输出文件名.xlsx")

' 调用Personal.xlsb中的宏
xlApp.Run "PERSONAL.XLSB!Module2.My_macro"

' 如果宏需要操作目标工作簿，推荐通过参数传递（避免依赖ActiveWorkbook）
' xlApp.Run "PERSONAL.XLSB!Module2.My_macro", targetWB

3. 宏的适配优化

如果宏需要操作你生成的Excel文件，建议修改宏为接收参数的形式，避免依赖ActiveWorkbook：

' 在Personal.xlsb的Module2中修改宏
Public Sub My_macro(targetWB As Workbook)
    ' 直接操作传入的目标工作簿
    targetWB.Sheets(1).Range("A1:C10").Font.Bold = True
    ' 执行创建表单按钮、格式设置等操作
    ' ...
End Sub

关键注意事项 #

• 确保宏是公共的：宏的定义必须是Public Sub My_macro()，如果是Private Sub，外部程序无法调用；
• 避免硬编码路径：调用Personal.xlsb时直接用文件名即可，无需写完整路径（只要它在Excel启动目录或已加载）。

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