运行Excel跨文件VBA宏时提示找不到PERSONAL.XLSB问题咨询

问题根源&修复步骤 #

1. 最核心的错误是Application.Run的路径字符串格式不符合规范
   带完整路径调用外部工作簿宏的标准格式是'工作簿完整路径'!宏名，你的代码里路径开头缺少了单引号，导致Excel无法正确解析工作簿路径，才会弹出找不到文件的报错。
   修正后的调用代码为：

   Application.Run "'C:\Users\myname\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB'!Graph_NEW"
   

2. 冗余调用导致的冲突
   PERSONAL.XLSB默认存放在XLSTART目录下，Excel启动时会自动加载该文件，无需填写全路径调用，直接使用工作簿名称调用即可，避免路径解析冲突：

   Application.Run "PERSONAL.XLSB!Graph_NEW"
   

3. 代码存在其他语法错误连带触发报错
   你代码中的wbMatrix.ActiveWorkbook.Save写法错误，wbMatrix本身就是你刚打开的CSV工作簿对象，不需要额外加ActiveWorkbook引用，且后续的wbMatrix.Close SaveChanges:=True已经包含保存逻辑，直接删除这行冗余的保存代码即可。

完整修正后的代码 #

Sub SHELLforMacros()
   Dim wbMatrix As Workbook
   Dim strFileName As String
   Dim strPath As String
   Dim strExt As String

    '待处理文件所在目录
    strPath = "C:\Users\myname\Desktop\All_mricgcm3_files\45\Fall45\test\"
    strExt = "csv"

    ' 提前确认PERSONAL.XLSB已加载，避免调用失败
    Dim wbPersonal As Workbook
    On Error Resume Next
    Set wbPersonal = Workbooks("PERSONAL.XLSB")
    If Err.Number <> 0 Then
        Set wbPersonal = Workbooks.Open("C:\Users\myname\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB")
    End If
    On Error GoTo 0

    strFileName = Dir(strPath & "*." & strExt)
    While strFileName <> ""
        Set wbMatrix = Workbooks.Open(strPath & strFileName)
        ' 调用个人宏工作簿中的宏
        Application.Run "PERSONAL.XLSB!Graph_NEW"
        ' 保存并关闭处理后的文件
        wbMatrix.Close SaveChanges:=True
        ' 读取下一个文件
        strFileName = Dir
    Wend
End Sub

额外排查项 #

如果以上修改后仍报错，可依次检查：

• 打开Excel的「开发工具-宏-安全性」，确认宏设置为启用所有宏（仅测试时使用，正式使用建议对宏签名）
• 检查PERSONAL.XLSB文件属性，确认没有被系统锁定（右键文件-属性-解除锁定）
• 确认XLSTART目录的读取权限正常，当前Windows账户对该目录有可读权限

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