excel自动备份的代码.doc

《excel自动备份的代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PrivateSubWorkbook_BeforeSave(ByValSaveAsUIAsBoolean,CancelAsBoolean)　　'指定Excel文件的路径　　XlsFilePath="D:"　　'指定备份路径　　BackupXlsFilePath="E:"　　IfThisWorkbook.Path=XlsFilePathThen　　ExcelFilePath=BackupXlsFilePath　　Else　　ExcelFilePath=XlsFilePath　　EndIf　　'提示是否备份　　Response=MsgBox("保

2、存时是否备份当前Excel文件？"&vbCr&"备份位置："&ExcelFilePath,vbYesNo,"提示备份")　　IfResponse=vbYesThen'用户按下“是”　　'两个Excel文件相互备份　　ThisWorkbook.SaveCopyAsFilename:=ExcelFilePath&""&ThisWorkbook.Name　　EndIf　　EndSub