Excel2003宏的问题期盼高
定义工作簿的BeforeClose事件。
默认以当前文件所在的路径为保存备份文件的路径，文件名以具体时间命名，肯定没有重复，而且比较容易看出来备份文件的更新时间。
当关闭整个工作薄的时候，会自动保存当前文件，并且在设定目录下保存备份文件，如果没有在输入框中输入内容，会自动保存在D盘目录下。
如果路径是网络路径，请输入详细的路径名称，并确认文件夹存在，如：
\\ \backup
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook。 ...全部
定义工作簿的BeforeClose事件。
默认以当前文件所在的路径为保存备份文件的路径，文件名以具体时间命名，肯定没有重复，而且比较容易看出来备份文件的更新时间。
当关闭整个工作薄的时候，会自动保存当前文件，并且在设定目录下保存备份文件，如果没有在输入框中输入内容，会自动保存在D盘目录下。
如果路径是网络路径，请输入详细的路径名称，并确认文件夹存在，如：
\\ \backup
Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
ActiveWorkbook。
Save
Dim strDir$
strDir = InputBox("请输入要保存的目录：", "输入路径", ActiveWorkbook。Path)
If strDir = "" Then strDir = "D:"
ActiveWorkbook。
SaveAs Filename:=strDir & "\" & Replace(CStr(Now), ":", "") & "。xls"
End Sub
。收起
