有时您可能希望页眉或页脚包含上次保存工作簿的日期。通常，这不是您可以在Excel中设置的信息。但是，您可以使用以下宏将信息强制放入正确的位置：

Sub MyFooter()

Dim mh As String On Error Resume Next mh = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time")

If Err = 440 Then    Err = 0    mh = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")

If Err = 440 Then       Err = 0       mh = "Not Set"

End If End If mh = Left(mh, 8)

ActiveSheet.PageSetup.LeftFooter = "Saved: " & mh End Sub

在此宏中有很多项目要注意。首先，它尝试确定保存工作簿的最后日期（和时间）。如果无法确定该信息，那么它将提取其创建日期。最后，如果找不到，则将页脚设置为“未保存”。

请注意，此宏中完成了一些错误处理。原因是，如果未设置特定的文档属性（在这种情况下为BuiltinDocumentProperty），则Excel将返回错误。该错误需要被拦截和处理，在此完成。

您应注意，该宏一旦运行，将把左页脚设置为所需的信息。该信息将不会再次更改，直到您再次运行宏。因此，如果您始终希望在页脚中有最新的日期，则应该定期运行宏（可能就在打印之前），或者将其设置为在打开文档时运行。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2055）适用于Microsoft Excel 97、2000、2002和2003。