获取并插入创建时间和最后修改时间到单元格中

本文将讨论获取当前工作簿信息的创建时间和最后修改时间的方法，并将当前工作簿信息的创建时间和最后修改时间插入到 Excel 的单元格中。

使用 Info 命令获取 Excel 中的创建时间和最后修改时间

使用 Kutools for Excel 在单元格/页眉/页脚中插入创建时间和最后修改时间

使用高级属性功能获取 Excel 中的创建时间和最后修改时间

使用 VBA 代码在 Excel 单元格中插入创建时间和最后修改时间

使用 Info 命令获取 Excel 中的创建时间和最后修改时间

我们可以在 Microsoft Excel 2010 / 2013 的后台视图中找到当前工作簿的确切创建时间和最后修改时间。

点击 文件 > 信息，在后台视图的右侧会显示 相关日期信息。在“相关日期”标题下，列出了最后修改时间、创建时间和最后打印时间。请参见以下截图：

注意：此方法仅适用于 Microsoft Excel 2010/2013，在 Excel 2007 中无效。

使用 Kutools for Excel 在单元格/页眉/页脚中插入创建时间和最后修改时间

让我向您介绍一个实用工具——Kutools for Excel，它包含 300 多个实用功能，可以提高您的工作效率。通过其 插入工作簿信息 功能，您可以快速将工作簿路径、工作簿/工作表名称、用户名或创建时间和最后修改时间插入到单元格或页眉或页脚中。

免费安装 Kutools for Excel 后，请按照以下步骤操作：

1. 点击 Kutools Plus > 工作簿 > 插入工作簿信息。请参见截图：

2. 然后在 插入工作簿信息 对话框中，勾选要插入的信息（来自信息部分），然后指定要插入的位置，您可以选择单元格、页脚（左页脚、中间页脚、右页脚）或页眉（左页眉、中间页眉、右页眉）。请参见截图：

3. 点击确定，您勾选的信息将被插入到指定位置。

提示：如果您想免费试用 插入工作簿信息 功能，请先前往免费下载 Kutools for Excel，然后根据上述步骤进行操作。

使用高级属性功能获取 Excel 中的创建时间和最后修改时间

实际上，我们可以在文档属性对话框中获取当前工作簿的创建时间和最后修改时间。步骤 1：打开高级属性对话框：

在 Excel 2007 中，点击 Office 按钮 > 准备 > 属性，工具栏下方会显示 文档属性 栏，点击 文档属性 > 高级属性，请参见截图：

在 Excel 2010/2013 中，点击 文件 > 信息 > 属性 > 高级属性。

步骤 2：在 高级属性对话框中，您将在统计选项卡下看到创建时间和最后修改时间。请参见以下截图：

使用 VBA 代码在 Excel 单元格中插入创建时间和最后修改时间

以下 VBA 宏将帮助您直接在单元格中插入当前工作簿信息的创建时间和最后修改时间。

在 Excel 中插入创建时间和最后修改时间

步骤 1：按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

步骤 2：点击 插入 >> 模块，并将以下宏粘贴到模块窗口中。

VBA 代码：在 Excel 中插入创建时间和最后修改时间

Sub Workbook_Open()
Range("A1").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Creation Date"), "short date")
Range("A2").Value = Format(ThisWorkbook.BuiltinDocumentProperties("Last Save Time"), "short date")
End Sub

步骤 3：按 F5 键运行此宏。然后创建日期和最后修改日期将分别插入到单元格 A1 和 A2 中。

注意：您可以根据需要在 VB 中修改目标单元格。

在 Excel 中插入工作簿的最后修改时间

步骤 1：按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

步骤 2：点击 插入 >> 模块，并将以下宏粘贴到模块窗口中。

Public Function ModDate()
ModDate = Format(FileDateTime(ThisWorkbook.FullName), "m/d/yy h:n ampm")
End Function

步骤 3：保存并关闭此代码，返回到工作表，在空白单元格中输入公式 =ModDate()，然后按 Enter 键。这样就会在单元格中插入最后修改时间。

在 Excel 中插入工作簿的创建时间

步骤 1：按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

步骤 2：点击 插入 >> 模块，并将以下宏粘贴到模块窗口中。

Function CreateDate() As Date
CreateDate = ActiveWorkbook.BuiltinDocumentProperties("Creation Date")
End Function

步骤 3：保存并关闭此代码，返回到工作表，在空白单元格中输入公式 =CreateDate()，然后按 Enter 键。创建日期将插入到单元格中，如下截图所示：

注意：如果您的单元格不是日期格式，可能会显示奇怪的数字。只需将此单元格格式化为日期格式，它将显示为正常日期。