Excel中XLAM文件引用无法保存，每次打开需重新添加

问题概述 #

XLAM加载项的引用无法与启用宏的工作簿（.xlsm）一同保存，每次打开工作簿后，原有公式会触发#NAME?错误，必须重新手动添加引用才能恢复正常。已排除安全设置（信任位置、宏权限）问题，仅需特定工作簿引用该加载项。

解决方案 #

1. 显式指定加载项函数路径 #

避免依赖VBA引用，直接在单元格公式中通过加载项名称调用函数，格式如下：

='MyAdvMathAddIn.xlam'!Add(4,8)

• 优势：无需维护VBA引用，公式直接指向加载项文件，只要加载文件路径未变更，打开工作簿时自动识别
• 注意：若加载项文件名或路径修改，需同步更新公式中的路径

2. 通过工作簿打开事件自动添加引用 #

在测试工作簿MyAdvMathTest.xlsm的ThisWorkbook模块中添加以下VBA代码，实现打开工作簿时自动检查并添加加载项引用：

Private Sub Workbook_Open()
    Dim ref As Reference
    Dim addInPath As String
    addInPath = Environ("APPDATA") & "\Microsoft\AddIns\MyAdvMathAddIn.xlam"
    
    ' 检查是否已存在目标引用
    On Error Resume Next
    Set ref = ThisWorkbook.VBProject.References("MyAdvancedMath")
    On Error GoTo 0
    
    ' 若不存在则添加引用
    If ref Is Nothing Then
        ThisWorkbook.VBProject.References.AddFromFile addInPath
    End If
End Sub

• 前提：需开启信任中心-宏设置中的「信任对VBA项目对象模型的访问」（信任中心>宏设置>勾选该选项）
• 优势：无需手动操作，打开工作簿自动完成引用加载

3. 使用加载项的GUID固定引用 #

1. 打开XLAM加载项的VBA编辑器，按F2打开对象浏览器，选择加载项项目MyAdvancedMath，右键点击>属性>查看「GUID」
2. 在测试工作簿的VBA中添加以下代码，通过GUID自动维护引用：

   Private Sub Workbook_Open()
       Dim ref As Reference
       Dim targetGUID As String
       targetGUID = "{你的加载项GUID}" ' 替换为实际获取的GUID
       
       On Error Resume Next
       Set ref = ThisWorkbook.VBProject.References.Item(targetGUID)
       On Error GoTo 0
       
       If ref Is Nothing Then
           ThisWorkbook.VBProject.References.AddFromGuid targetGUID, 1, 0
       End If
   End Sub
   

• 优势：即使加载文件路径变更，只要GUID不变，引用仍能生效

关键注意事项 #

• 确保XLAM加载项始终保存在固定路径，或使用环境变量（如Environ("APPDATA")）动态获取路径，避免路径硬编码失效
• 使用VBA自动添加引用时，必须开启对VBA项目对象模型的访问权限

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