当我们做日报时，每次都需要改文件名的日期，另存为新文件，下面介绍一个一步到位方法
首先，我们要获取当前文件的文件名
获取文件名：ActiveWorkbook.Name，
我们需要不带文件的后缀名，可以用left函数截取
Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5)
其次，要获取日期，使用format函数将日期转为文本格式
Format(Now(), "mmdd")
文件名=名称+日期+文件后缀，拼接完成后就是这样的
wbn = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & Format(Now(), "mmdd") & ".xlsx"
最后，将文件路径拼接到一起，当然文件路径也可以自定义其他
完整的文件名：ActiveWorkbook.Path & "\" & wbn
ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.Path & "\" & wbn
如果文件中不想包含宏代码，可以将代码存在其他文件，再到当前文件运行