如何用VBA实现excel表格编辑完关闭前自动以原文件名加系统日期及编号命名另存到指定途径
3个回答
展开全部
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
亲测可用，请采纳
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
亲测可用，请采纳
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
workbook 的close事件中加上保存命令。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
到宏里边去学一段程序就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
