作者:乔山办公网日期:
返回目录:excel表格制作
EXCEL 选项里 保存位置 路径改一下,
可以用宏来实现写在工作表事件下,但你要事先在宏zd里写好路径。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="E:\备份\" & "备份" & a
End Sub
上边那个代码是保存在 E:\备份\ 文件内夹下,并在原文件名字前边加容上备份两个字。
但你要事先在E盘下建好名字为“备份”的文件夹
打开Excel后,按alt+F11,出现VBE窗口后,双击thisworkbook,输入下列代码.即可e68a847a686964616f338达到你的要求
Private Sub Workbook_BeforeClose(Cancel As Boolean) '关闭前备份加保存.
path1 = "E:\备份文件夹\" '备份文件夹路径
ThisWorkbook.Save '保存本文件
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path1 & ThisWorkbook.Name) Then '判断备份文件是否存在
Kill path1 & ThisWorkbook.Name '存在的话,删除原来备份文件
ThisWorkbook.SaveAs path1 & ThisWorkbook.Name '保存新的文件备份
Else
ThisWorkbook.SaveAs path1 & ThisWorkbook.Name '不存在直接保存备份
End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) '保存前备份.两种方式.
path1 = "E:\ppt\"
ThisWorkbook.Save
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(path1 & ThisWorkbook.Name) Then
Kill path1 & ThisWorkbook.Name
ThisWorkbook.SaveAs path1 & ThisWorkbook.Name
Else
ThisWorkbook.SaveAs path1 & ThisWorkbook.Name
End If
End Sub
可以用宏来实现写在工作表事件下,但你zd要事先在宏里写好路径。
Private Sub Workbook_BeforeClose(Cancel As Boolean)
a = ActiveWorkbook.Name
ActiveWorkbook.SaveAs Filename:="E:\备份版\" & "备份" & a
End Sub
上边那个代码是保存在 E:\备份\ 文件夹下,并在原文件名字前边加上备份两个字。
但你要事先在E盘下权建好名字为“备份”的文件夹