Excel VBA工作簿关闭时带时间戳存副本问题求助

我来帮你搞定这个自动保存时间戳副本的问题！你的代码思路是对的，但看起来没写完，而且几个关键细节需要调整才能正常工作。下面是完整的修复版代码，再给你拆解一下核心要点：

完整修复代码 #

Private Sub Workbook_BeforeClose(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim sBaseName As String
    Dim sDateTime As String
    Dim sSavePath As String
    Dim sFullFileName As String
    
    ' 跳过用户主动触发的"另存为"操作，避免冲突
    If SaveAsUI Then Exit Sub
    
    ' 1. 获取Excel的启动目录路径
    sSavePath = Application.StartupPath & "\"
    
    ' 2. 生成合法的时间戳（Windows文件名不允许冒号，所以用hhmmss格式）
    sDateTime = Format(Now, "yyyy-mm-dd hhmmss") ' 加秒数避免短时间内重复保存覆盖
    
    ' 3. 提取原工作簿的基础文件名（去掉扩展名）
    sBaseName = Left(Me.Name, InStrRev(Me.Name, ".") - 1)
    
    ' 4. 拼接完整的保存路径+文件名
    sFullFileName = sSavePath & sBaseName & " (" & sDateTime & ").xlsm"
    
    ' 5. 保存副本（用SaveCopyAs不改变当前打开的工作簿）
    On Error Resume Next ' 处理保存失败的情况（比如权限不足、文件被占用）
    Me.SaveCopyAs sFullFileName
    On Error GoTo 0
    
    ' 可选：如果需要确保当前工作簿先保存再存副本，取消下面的注释
    ' Me.Save
End Sub

关键修复点说明 #

• 避免和用户"另存为"操作冲突：当用户手动触发"另存为"对话框时，SaveAsUI参数会变为True，这时候我们直接退出事件，防止重复保存或弹出错误提示。
• 正确获取启动目录：用Application.StartupPath直接拿到Excel的启动文件夹路径，比手动拼接路径可靠得多，不会出现路径错误。
• 合法的时间戳格式：Windows文件名不允许包含冒号，所以把原来的hh:mm改成hhmmss，同时加上秒数，就算短时间内多次关闭工作簿，也不会出现同名文件覆盖的问题。
• 用SaveCopyAs替代SaveAs：SaveCopyAs是直接保存当前工作簿的副本，不会改变你正在编辑的工作簿的路径和名称；如果用SaveAs，当前打开的文件会变成新保存的副本，这不是我们想要的效果。
• 错误处理：添加On Error Resume Next可以防止因为权限不足、目标文件被占用等意外情况导致保存失败，进而阻止工作簿正常关闭。

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