EXCEL每次保存后，如何在文件名后面自动生成当前日期？

例如：文件名为“报表”，
进行保存操作后，文件名变成“报表-yyyy.mm.dd.hh.mm”，
每次保存后面时间更新

----------------------------------------------------------------------------------------------------------------------------------

要用VBA
Alt+F11打开VB窗口，在THISWORKBOOK代码窗口：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.Save
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\报表" & Format(Now(), "yyyy.mm.dd.hh.mm") & ".xls"
End Sub