EXCEL在不同的文件夹自动生成备份代码,VBS代码库,德仔网

代码语言

代码分类

【VBS】 EXCEL在不同的文件夹自动生成备份

作者:Dezai.CN / 发布于2011/5/10/ 1039

<div>Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
<p style="text-indent: 2em">　　'指定Excel文件的路径
<p style="text-indent: 2em">　　XlsFilePath = "D:"
<p style="text-indent: 2em">　　'指定备份路径
<p style="text-indent: 2em">　　BackupXlsFilePath = "E:"
<p style="text-indent: 2em">　　If ThisWorkbook.Path = XlsFilePath Then
<p style="text-indent: 2em">　　ExcelFilePath = BackupXlsFilePath
<p style="text-indent: 2em">　　Else
<p style="text-indent: 2em">　　ExcelFilePath = XlsFilePath
<p style="text-indent: 2em">　　End If
<p style="text-indent: 2em">　　'提示是否备份
<p style="text-indent: 2em">　　Response = MsgBox("保存时是否备份当前Excel文件？" & vbCr & "备份位置：" & ExcelFilePath, vbYesNo, "提示备份")
<p style="text-indent: 2em">　　If Response = vbYes Then ' 用户按下&ldquo;是&rdquo;
<p style="text-indent: 2em">　　'两个Excel文件相互备份
<p style="text-indent: 2em">　　ThisWorkbook.SaveCopyAs Filename:=ExcelFilePath & "\" & ThisWorkbook.Name
<p style="text-indent: 2em">　　End If
<p style="text-indent: 2em">　　End Sub
</div>

试试其它关键字

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)