好吧问答库 > 如何用VBA实现excel表格编辑完关闭前自动以原文件名加系统日期及编号命名另存到指定途径

如何用VBA实现excel表格编辑完关闭前自动以原文件名加系统日期及编号命名另存到指定途径

2024年11月15日 14:10

有3个网友回答

网友（1）：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayAlerts = False
n = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5)
fname = Application.GetSaveAsFilename(CStr(n) & Format(Now(), "yy/mm/dd"), fileFilter:="Excel文件(*.xls),*.xls", Title:=选择保存路径)
If fname = False Then Exit Sub
ThisWorkbook.SaveAs fname
Application.DisplayAlerts = True
End Sub

亲测可用，请采纳

网友（2）：

workbook 的close事件中加上保存命令。

网友（3）：

到宏里边去学一段程序就可以了