EXCEL文件备份

  在Excel中点击“文件”菜单，选择“保存”命令，在打开的“保存”对话框中，按下右上角的“工具”(2007版“工具”放到了左下方），点选“常规选项”，出现“保存选项”对话框后，勾选“生成备份文件”选项，按下“确定”。   现在保存一下文档，Excel就会自动给这个文件创建一份备份文件，备份文件的文件名为原文件名后加上“的备份”字样，如“Book1的备份.xlk”，而且图标也不相同，相信很容易分别出哪个是备份文件。

        备份文件自动备份的是上一次保存的内容。也就是说备份文件是在文件打开时备份的，而不是在文件关闭的时候备份的。

        如果希望自己指定备份文件地址，需借用VBA：
        打开需备份的文件，右键点击表格的名称，弹出的选择框中点击“查看代码”，会弹出VBA编辑窗口，双击左边的“thisworkbook”，然后在右边的窗口中输入以下代码：

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 '用户按下“是”
'指定备份文件名称
ThisWorkbook.SaveCopyAs Filename:=excelfilepath & "\" & ThisWorkbook.Name
End If
End Sub
在上面的代码中，备份文件路径指定的是D盘，可以将其换成自己希望的地址
按以上代码，备份文件名将与原文件名相同，若想自定义备份文件名，则把ThisWorkbook.SaveCopyAs Filename:=excelfilepath & "\" & ThisWorkbook.Name改为：
ThisWorkbook.SaveCopyAs Filename:=excelfilepath & "\" & "希望的文件名称.xls"
因为两个文件互为备份，文件名应该相同