各位朋友大家好！日常工作中我们常常需要按月、按周甚至按日分析数据变动情况，但时常容易忘记另存上一期的表格同时又在上一期表格内更新当期数据，造成无法比对两期数据的情况，那么我们怎么让EXCEL表格自动在关闭的时候将工作簿内的表格根据当前日期另存在当前文件夹内呢，一分钟的时间让你马上学会方法：
首先打开需要实时保存的工作薄，点击工具栏内的开发工具，选择查看代码选项，点击左侧下拉选项选择thisworkbook选项，右侧选择beforeclose触发选项（也就是在这张工作簿关闭时执行指令），贴入以下代码，如图所示：

保存完以后，我们关闭工作表时宏代码会将我们工作薄的表格+当前日期生成新的工作薄便于我们定期比对，如下图所示：

你学会了吗？有需要交流，相互学习的朋友可以关注一下，谢谢啦！
代码如下：
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Worksheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & Format(Now, "yyyymmdd AM/PMhm") & ".xls" '(工作表名称为文件名）
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True

(*>.<*)