excel关闭前自动备份并重命名

2022-07-23 23:57:23 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《excel关闭前自动备份并重命名》，欢迎阅读！
并重,备份,命名,关闭,自动
excel重要的文件每次关闭前自动备份，实现这样“高大尚”的功能现有的excel功能无法完成，作为不懂VBA代码的你，只需要按下面步骤复制粘贴即可。

第1 步：打开要备份的excel文件，在工作表标签上右键单击，点击“查看代码”

第2步在打开一个visualbasic窗口，双击工程窗口中的thisworkbook，把下面的代码粘贴到右侧的窗口中。代码：

Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next

Dim mypath As String, fname As String

fname = ThisWorkbook.Name & Format(Now, "yyyymmddhhmm") mypath = ThisWorkbook.Path & "/备份/"

或者(mypath = "C:/Documents and Settings/Administrator/桌面/我的模板/") ThisWorkbook.SaveCopyAs mypath & fname End Sub

第3步：在Visual basic窗口中点击保存命令，会弹出另存启用宏的提示，这时点击“否”按钮。在弹出的保存窗口中，选取保存类型为“Excel 启用宏的工作簿”

第4步：在当前文件夹中，新建一个名为“备份”的文件夹。前面代码有保存路径的就新建名为路径里的定义的文件夹名称。

设置完成！

当关闭当前文件后，在备份文件夹中会自动产生一个文件名+日期的excel备份文件。