在Excel 2013中自动生成备份工作簿是一个非常有用的功能，可以确保您的数据安全并方便管理。以下是如何使用Excel 2013的宏功能来自动创建工作簿备份的步骤。
首先，打开Excel 2013并进入您想要备份的工作簿。按下`Alt + F11`键打开VBA编辑器。
在VBA编辑器中，右键点击“VBAProject (YourWorkbookName)”并选择“插入” > “模块”。这将创建一个新的模块。
在新的模块中，复制并粘贴以下VBA代码：
```vba Sub BackupWorkbook() Dim originalWorkbook As Workbook Dim backupWorkbook As Workbook Dim backupPath As String ' 设置原始工作簿 Set originalWorkbook = ThisWorkbook ' 设置备份路径 backupPath = "C:\Path\To\Backup\" ' 检查备份路径是否存在，如果不存在则创建 If Dir(backupPath, vbDirectory) = "" Then MkDir backupPath End If ' 创建备份工作簿 Set backupWorkbook = originalWorkbook.Workbooks.Add backupWorkbook.SaveAs Filename:=backupPath & originalWorkbook.Name, FileFormat:=xlOpenXMLWorkbook ' 关闭备份工作簿 backupWorkbook.Close SaveChanges:=False MsgBox "备份工作簿已创建成功！" End Sub ```请确保将`backupPath`变量的值更改为您希望保存备份工作簿的路径。
保存并关闭VBA编辑器。现在，您可以运行这个宏来创建工作簿的备份。要运行宏，按下`Alt + F8`，选择`BackupWorkbook`，然后点击“运行”。
每次运行这个宏时，它都会在指定的备份路径创建一个新的工作簿备份。这样，即使原始工作簿出现问题，您也可以轻松地从备份中恢复数据。
为了进一步自动化这个过程，您可以设置一个快捷键来运行这个宏，或者将其添加到Excel的快速访问工具栏中。这样，您只需一个点击或按键操作即可创建备份。
通过这些步骤，您可以在Excel 2013中轻松实现工作簿的自动备份，确保您的数据安全无忧。
