如何通过VBA原地保存含配置数据的Excel Add-In？

这个问题我之前帮朋友排查过，核心原因是Excel加载项默认是以只读模式打开的——当你调用ThisWorkbook.Save时，Excel无法直接修改只读的原加载项文件，就会自动在「我的文档」目录生成副本作为替代。要实现原地保存加载项，你需要明确指定保存路径，而不是依赖默认的Save行为。

正确的实现代码 #

直接使用SaveAs方法，指定加载项的原始完整路径和文件格式，就能覆盖原文件而不会生成副本：

Sub SaveAddInConfig()
    On Error GoTo SaveError
    
    ' 记录加载项的原始路径和文件格式
    Dim addInPath As String
    Dim addInFormat As XlFileFormat
    
    addInPath = ThisWorkbook.FullName
    addInFormat = ThisWorkbook.FileFormat
    
    ' 原地保存加载项（覆盖原文件）
    ThisWorkbook.SaveAs _
        Filename:=addInPath, _
        FileFormat:=addInFormat, _
        ReadOnlyRecommended:=ThisWorkbook.ReadOnlyRecommended, _
        CreateBackup:=False
    
    Exit Sub

SaveError:
    MsgBox "保存加载项配置失败：" & Err.Description, vbCritical, "错误提示"
End Sub

关键说明 #

1. 为什么用SaveAs而非Save：Save在只读模式下会触发「另存为」逻辑，而SaveAs允许你强制指定保存路径，绕过默认的副本生成行为。
2. 使用ThisWorkbook确保目标正确：和ActiveWorkbook不同，ThisWorkbook始终指向包含当前VBA代码的加载项工作簿，不会误操作用户打开的其他工作簿。
3. 错误处理必不可少：如果加载项文件被其他程序锁定（比如文件资源管理器正在查看加载项文件夹），SaveAs会报错，错误处理能提升用户体验。

额外注意事项 #

• 如果你的加载项带有数字签名，保存后签名会失效，需要重新进行代码签名。
• 若担心覆盖原加载项文件的风险，可以在保存前用ThisWorkbook.SaveCopyAs生成一个备份文件，再执行SaveAs。

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