如何用VBA实现Excel文件自动备份？关闭时备份代码报错求助

你的代码存在几个关键问题，导致编译或运行错误，以下是修正后的代码及说明：

错误点分析 #

• 路径格式错误：I:Analytics缺少根目录后的反斜杠，应改为I:\Analytics，否则系统无法识别正确的绝对路径。
• 事件模块错误：Workbook_BeforeClose是工作簿级事件，必须放在ThisWorkbook模块中，不能放在普通标准模块里，否则事件不会触发且可能报编译错误。
• 未处理目录不存在的情况：如果备份目标目录不存在，SaveCopyAs会直接报错，需先判断并创建目录。

修正后的代码 #

将以下代码粘贴到ThisWorkbook模块中（右键Excel窗口左上角的工作簿图标→查看代码，即可打开该模块）：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error GoTo ErrorHandler
    Dim backupDir As String
    Dim backupPath As String
    
    ' 备份目录路径（确保反斜杠正确）
    backupDir = "I:\Analytics\ProjetoDiario\BKP\"
    ' 确保目录存在，不存在则创建
    If Dir(backupDir, vbDirectory) = "" Then
        MkDir backupDir
    End If
    
    ' 生成带时间戳的备份文件名
    backupPath = backupDir & Format(Now, "yyyy-mm-dd_hh-mm-ss") & "_" & ThisWorkbook.Name
    ' 保存备份副本
    ThisWorkbook.SaveCopyAs backupPath
    
    Exit Sub

ErrorHandler:
    MsgBox "Erro ao criar backup: " & Err.Description, vbCritical
End Sub

额外注意事项 #

• 确保你的电脑能正常访问I:盘，若为网络驱动器需提前连接。
• 文件名中的时间戳用-代替:，避免Windows文件名不允许的特殊字符。
• 如果工作簿处于未保存状态，关闭前Excel会先提示保存，备份的是当前已保存的版本；若需要备份未保存的修改，可在SaveCopyAs前添加ThisWorkbook.Save。

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