请教高手，这样用宏编写让EXCEL自动备份的其他目录！

xiaoxuan89

我想在每次用完EXCEL保存的时候自动生成备份（备份和原文件不在同一个目录，并且是自动备份没任何提示）
听说用VB宏可以实现，谁能给发一下源代码？只发源代码就可以，不用做过多的解释 多余的我复制上 没有


我复制过别的人：

　　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

原版复制到EXCEL的宏中的  但是没反应呢？是不是我多加了点东西  或少加了些东西啊？请求解决！