乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > excel 表格怎么让自动生成的备份保存到其他文件夹?求具体...-excel生成备份文件,如何取消excel文件自动备

excel 表格怎么让自动生成的备份保存到其他文件夹?求具体...-excel生成备份文件,如何取消excel文件自动备

作者:乔山办公网日期:

返回目录: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盘下建好名字为“备份”的文件夹

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网