更新日期的代码

A. EXCEL 自动更新保存日期

我试过没问题呀，要不你在修改页脚后再加一句保存的代码看看：
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "修改时间：" & Format(Now, "yyyy年m月d日 hh:mm:ss")
ThisWorkbook.Save
End Sub