VBA里时间处理

前段时间搞了些excel的宏，遇到了一些问题，其中有一个是保存用时间点命名的文件，时间可以用以下函数：
date1 = Format(Now, "yyyy_MM_dd")
time1 = Format(Now, "HH_mm_ss")
注意大小写要区分，这样出来的才是用0填充的24小时制的，年份4位其余2位的格式。

另外还有后台保存的函数：SaveCopyAs

另外少用“ThisWorkbook”，不然打开两个或以上含有同样代码的文件时会出问题，尽量用例如Workbooks("test.xlsm")的语句

另外定时刷新：
Application.OnTime Now + TimeValue("00:00:10"), "refresh"

另外还有一个过段时间就弹出个框提示什么和个人信息相关的东西，需要加入以下语句消除：
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ThisWorkbook.RemovePersonalInformation = Falese
End Sub
加入ThisWorkbook