1、打开需要备份的Excel文件,右击任一工作表标签,选择“查看代码”,或选择“工具”→“宏”→“Visual Basic编辑器”菜单,打开Visual Basic编辑器。
2、在“工程”窗口中双击“ThisWork book”,此时VBA编辑器标题变为:
Microsoft Viusal Basic-“文件名”-[ThisWorkbook(代码)]。
3、将以下代码输入到“代码”窗口中:
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'指定Excel文件的路径
XlsFilePath = "D:"
'指定备份路径
BackupXlsFilePath = "E:"
If ThisWorkbook.Path = XlsFilePath Then
ExcelFilePath = BackupXlsFilePath
Else
ExcelFilePath = XlsFilePath
End If
'提示是否备份
Response = MsgBox("保存时是否备份当前Excel文件?" &vbCr &"备份位置:" &ExcelFilePath, vbYesNo, "提示备份")
If Response = vbYes Then
' 用户按下“是”
'两个Excel文件相互备份
ThisWorkbook.SaveCopyAs Filename:=ExcelFilePath &"\" &ThisWorkbook.Name
End If
End Sub
说明:XlsFilePath = "D:"和Backup XlsFilePath = "E:"分别指定了正在编辑的Excel文件和备份文件的路径,可以将其中的“D:”和“E:”(不含引号)分别更换成实际的路径。在输入文件路径时一定要注意以下几点:
1、确保路径正确无误,如果输入错误或指定的文件夹不存在,将出现错误;
2、盘符要大写;
3、路径的后面不要加上“\”,如“F:\备份\2013”不能写成“F:\备份\2013\”。
另外,选择“工具”→“宏”→“安全性”菜单,将安全级别设为“低”。这样,VBA代码才可以执行。
1、打开一个excel表格,点击左上角的“文件”菜单。在打开的文件菜单中选择“信息”按钮。在打开的信息按钮视图中间选择“管理版本”。
2、在打开的列表中选择“恢复未保存的工作薄”,就会打开excel表格的临时文件保存路径,在里面找到需要恢复的excel表临时文件,打开一个空白的excel表,直接将要恢复的临时文件拖拽到表里面打开即可。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)