Office中国论坛/Access中国论坛

标题: 请教高手，这样用宏编写让EXCEL自动备份的其他目录！ [打印本页]

作者: xiaoxuan89 时间: 2008-6-7 22:30
标题: 请教高手，这样用宏编写让EXCEL自动备份的其他目录！
我想在每次用完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的宏中的但是没反应呢？是不是我多加了点东西或少加了些东西啊？请求解决！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)