Excel 2003 VBA复制关闭工作簿工作表时获取旧版本问题

核心问题 #

Excel 2003中直接用Workbooks.Open打开.xlt模板时，默认会创建基于模板的新工作簿副本（这就是手动打开时标题栏显示CH54_Template1.xlt的原因）。如果系统缓存了旧的模板副本，VBA就会读取到过时内容，而非磁盘上的最新模板文件。

修正代码 #

修改Workbooks.Open的参数，强制打开模板文件本身而非新建副本，确保读取最新内容：

Sub LoadTemplate2()
    ' 关闭屏幕更新与提示以加速脚本
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    Dim directory As String, templateName As String, fileExt As String
    Dim bookName As String, filePath As String
    Dim wb As Workbook
    
    directory = "E:\Cascade\RunSheet-Heath Edition\CH54\"
    templateName = "CH54_Template"
    fileExt = ".xlt"
    bookName = ActiveWorkbook.Name
    filePath = directory & templateName & fileExt
    
    ' 打开模板文件本身（Editable:=True 避免创建副本）
    Set wb = Workbooks.Open(Filename:=filePath, Editable:=True)
    
    ' 复制模板工作表到当前工作簿的第一个位置
    wb.Sheets(1).Copy Before:=Workbooks(bookName).Worksheets(1)
    
    ' 关闭模板，不保存修改（仅读取无需改动模板）
    wb.Close SaveChanges:=False
    
    ' 重命名新工作表（明确指定当前工作簿，避免引用错误）
    Workbooks(bookName).Worksheets(1).Name = "RunSheet"
    
    ' 恢复屏幕更新与提示
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

额外排查步骤 #

• 清理Excel临时文件：打开C:\Documents and Settings\[你的用户名]\Local Settings\Temp，删除所有以~$开头的临时文件（比如~$CH54_Template.xlt），这些是Excel缓存的旧版本文件。
• 检查文件锁定：确认模板文件没有被其他程序或用户占用，否则VBA无法读取最新内容。
• 避免模糊引用：不要直接用Sheets(1)，始终通过wb.Sheets(1)或Workbooks(bookName).Worksheets(1)明确指定操作对象，防止引用到错误的工作表。

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