Excel模板另存时如何记录原文件名以追踪模板版本？

一、VBA代码实现（推荐，自动获取模板文件名） #

这个方案会在用户基于模板新建文件并保存时，自动将原模板的文件名写入新文件的指定单元格，无需手动维护版本信息。

操作步骤： #

1. 打开你的Excel模板文件，按Alt+F11打开VBA编辑器。
2. 在左侧项目窗口中找到并双击ThisWorkbook模块。
3. 将以下代码粘贴到代码窗口：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    ' 仅处理「另存为」操作（模板本身无法直接保存）
    If SaveAsUI Then
        Cancel = True ' 取消默认的另存为流程，改用自定义逻辑
        Dim saveFilePath As Variant
        
        ' 弹出另存为对话框，限定保存格式为普通Excel工作簿
        saveFilePath = Application.GetSaveAsFilename( _
            FileFilter:="Excel 工作簿 (*.xlsx), *.xlsx")
            
        If saveFilePath <> False Then
            ' 将原模板文件名写入主工作表的指定单元格（可自行修改Sheet和单元格）
            Me.Sheets("Sheet1").Range("A1").Value = "使用模板：" & ThisWorkbook.Name
            ' 保存新文件
            Me.SaveAs Filename:=saveFilePath, FileFormat:=xlOpenXMLWorkbook
        End If
    End If
End Sub

4. 根据你的实际需求，修改代码中的Sheets("Sheet1")和Range("A1")为目标工作表名称和单元格位置。
5. 将模板保存为启用宏的模板格式（.xltm），否则VBA代码无法生效。

说明： #

• 当用户点击「保存」时，会弹出自定义的另存为对话框，完成保存后，指定单元格会自动填充原模板的文件名（包含版本信息）。
• 如果需要支持其他保存格式（如.xlsm），可修改代码中的FileFilter和FileFormat参数。

二、非VBA替代方案（手动维护版本） #

如果不想使用宏，可以通过自定义文档属性实现：

1. 打开模板文件，点击「文件」→「信息」→「属性」→「高级属性」→「自定义」选项卡。
2. 点击「添加」，输入属性名称（如「模板版本」），属性值填写模板的完整文件名（如V2.0_员工数据模板.xltx），勾选「链接到内容」后选择目标单元格（如Sheet1的A1），点击「确定」。
3. 保存模板文件。当用户基于该模板新建文件时，目标单元格会自动显示预设的模板版本信息。

说明： #

• 此方案需要手动更新模板的自定义属性值，无法自动获取模板文件名，适合版本更新频率较低的场景。

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