Note: The other languages of the website are Google-translated. Back to English

获取并在单元格中插入创建时间和上次修改时间

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

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

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

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

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


箭头蓝色右气泡 使用Info命令获取Excel中的创建时间和上次修改时间

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

点击 文件 > 详细信息,并在后台视图的右侧显示 相关日期 信息。 在下面 相关日期 标题,它列出了上次修改时间,创建时间和上次打印时间。 请参阅以下屏幕截图:

-2

 

请注意: 此方法仅在Microsoft Excel 2010/2013中可用。 在Excel 2007中无效。


箭头蓝色右气泡使用高级属性功能获取Excel中的创建时间和上次修改时间

实际上,我们可以在“文档属性”对话框中获取当前工作簿的创建时间和上次修改时间。
步骤: 打开 进阶属性 对话框:

在Excel 2007中,单击 办公室 按钮> 准备 > 租房和一个 文档属性 栏将显示在工具栏下方,单击 文档属性 > 进阶属性,请参见屏幕截图:

文档插入修改时间 3-3
-1
文档插入修改时间 4-4

 

在Excel 2010/2013中,点击 文件 > 详细信息 > 租房 > 进阶属性.

文档插入修改时间 4-4

步骤: 在里面 进阶属性 对话框中,您将在“统计信息”选项卡下看到创建时间和上次修改时间。 请参见以下屏幕截图:

文档插入修改时间 4-4


箭头蓝色右气泡 使用VBA代码在Excel的单元格中插入创建时间和上次修改时间

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

在Excel中插入创建时间和上次修改时间

步骤:按住 ALT + F11 键,并打开“ Microsoft Visual Basic应用程序”窗口。

步骤:点击 插页 >> 模块,然后将以下宏粘贴到“模块窗口”中。

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

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

备注:您可以根据需要修改VB中的目标单元格。

在Excel中插入工作簿的上次修改时间

步骤:按住 ALT + F11 键,并打开“ Microsoft Visual Basic应用程序”窗口。

步骤:点击 插页 >> 模块,然后将以下宏粘贴到“模块窗口”中。

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

步骤:然后保存并关闭此代码,然后返回工作表,在空白单元格中输入公式 = ModDate(),然后按 输入 键。 然后将最后修改的时间插入单元格中。

-2

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

步骤:按住 ALT + F11 键,并打开“ Microsoft Visual Basic应用程序”窗口。

步骤:点击 插页 >> 模块,然后将以下宏粘贴到“模块窗口”中。

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

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

-2

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


箭头蓝色右气泡 使用Kutools for Excel在单元格/页眉/页脚中插入创建的时间和最后修改的时间

我可以为您介绍一个方便的工具-Kutools for Excel 其中300多个有用功能可以提高您的工作效率? 与它 插入工作簿信息 功能,您可以快速将工作簿路径,工作簿/工作表名称,用户名或创建时间以及上次修改时间插入到单元格或页眉或页脚中。

Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 

免费安装 Kutools for Excel,请执行以下操作:

1。 点击 Kutools 加 > 工作簿 > 插入工作簿信息。 看截图:
doc最后修改name2

2.然后在 插入工作簿信息 对话框中,从“信息”部分检查要插入的信息,然后转到指定要插入的位置,您可以选择单元格,页脚(左页脚,中间页脚,右页脚)或页眉(左侧页眉,中央页眉,正确的标题)。 看截图:
doc插入文件创建的修改时间1

3。 点击 Ok,并且您检查的信息已插入到您指定的位置。

小费。 如果您想免费试用“插入工作簿信息”功能, 请去免费下载Kutools for Excel 首先,然后按照上述步骤进行操作。

箭头蓝色右气泡 插入工作簿信息



最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能. 支持 Office / Excel 2007-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (21)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
有用的信息.... :-)
该评论由网站上的主持人最小化
这是完美的。 正是我想要的。 非常感谢!!
该评论由网站上的主持人最小化
非常感谢您的帮助,这些都是我们需要的。 代码可以正常工作但没有更新,这意味着一旦我保存就不要更新修改日期。 你有什么解决办法吗? 我尝试了很多次,保存,关闭然后重新打开,没有更新日期。
该评论由网站上的主持人最小化
嗨哈立德,

我遇到了同样的问题,我在代码中添加了“Application.Volatile”行,当我按 F9 时,它会更新信息。
我在 Bill Jelen 的视频“Learn Excel - “Function for Last Saved Time”:Podcast #1725 中看到了它。
@Bill:非常感谢您的视频!

https://www.youtube.com/watch?v=KnSA6xdmc2Q

问候,
Alex
该评论由网站上的主持人最小化
你好:我以不同的方式做到了这一点,但也通过编码。 因为我添加了代码,所以我使用宏保存工作簿,因此保存为 *.XLSM。 这很好,但很多地方不允许这样的宏。 有没有办法将此(或保存更改的工作簿)转换为普通的.XLS? 我还假设它会要求某人“启用宏”如果他们打开了该设置(我是一名顾问,我工作的大多数地方都会让我在打开工作簿后在适用时打开宏)。 仅供参考:这是我在宏中的做法(不是更好;只是不同)。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Last Update" & Format(Now(), "mm /dd/yyyy") .RightHeader = "" .RightFooter = "Last Updated" & Format(Now(), "mm/dd/yyyy") End With End Sub
该评论由网站上的主持人最小化
这些信息对我很有帮助。 谢谢关心
该评论由网站上的主持人最小化
感谢这个信息
该评论由网站上的主持人最小化
[quote]你好:我用不同的方式做到了这一点,但也是通过编码。 因为我添加了代码,所以我使用宏保存工作簿,因此保存为 *.XLSM。 这很好,但很多地方不允许这样的宏。 有没有办法将此(或保存更改的工作簿)转换为普通的.XLS? 我还假设它会要求某人“启用宏”,如果他们打开了该设置(我是一名顾问,我工作的大多数地方都会让我在打开工作簿后在适用时打开宏)。 仅供参考:这是我在宏中的做法(不是更好;只是不同)。 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _ Cancel As Boolean) Cancel = False With ActiveSheet.PageSetup ' .LeftHeader = "" ' .CenterHeader = "" ' .RightHeader = "Last Update" & Format(Now(), "mm /dd/yyyy") .RightHeader = "" .RightFooter = "Last Updated" & Format(Now(), "mm/dd/yyyy") End With End Sub作者:拉里·S·皮特[/quote] 您好,我成功插入了上次修改日期和时间,但是当您保存并重新打开工作簿时它没有更新。 请在这里帮忙......我不知道编码所以我基本上复制这些论坛上给出的任何信息谢谢Swaran
该评论由网站上的主持人最小化
是的,我有同样的问题 - 它昨天运行良好,但今天保存后它不会改变。
该评论由网站上的主持人最小化
请帮忙!!! 需要返回关闭文件的最后修改日期和时间,并在打开文件的单元格中返回此信息
该评论由网站上的主持人最小化
嘿,这太棒了。 是否可以插入不同工作簿的创建日期和上次修改日期? 我正在寻找一个索引文件,告诉我其他文档的最后更新时间。 谢谢!!
该评论由网站上的主持人最小化
Hiya Love 喜欢这个,但遗憾的是日期只出现在美国和澳大利亚,我们有 dd/mm/yy 我已经厌倦了使用“日期”部分将其更改为这种格式,但没有任何运气。 有任何想法吗?
该评论由网站上的主持人最小化
Julie - 在 VBA 代码中使用 "dd/mm/yy hh:n" 代替。 这将使日期按“正确”的顺序排列! :哈哈:
该评论由网站上的主持人最小化
非常非常非常非常非常非常非常有帮助谢谢
该评论由网站上的主持人最小化
这可以修改为显示的创建日期 other 关闭文件? 我想将我桌面上文件的创建日期与公共 Web 服务器上的文件进行比较。 我可以创建公式来使用您的函数...本地文件的 CreateDate() 到 Web 文件的 CreateDate()...并提醒我进行更改。 我感谢您的帮助。 布鲁斯
该评论由网站上的主持人最小化
感谢您的帮助,但我也遇到了一个问题,即保存后单元格不更新,而无需先关闭并重新打开工作簿。 我在保存事件后刷新的工作簿中添加了以下代码: Private Sub Workbook_AfterSave(ByVal Success As Boolean) If Success Then ActiveSheet.Calculate End If End Sub 这对我有用。 希望能帮助到你。
该评论由网站上的主持人最小化
我看到“上次保存时间”仅在代码中引用一次。 我正在使用 Excel 2010。当我将“上次保存时间”放入函数中时,即使使用 Application.Volatile(true),该值也永远不会更新。 然后我注意到“上次保存时间”返回的值没有出现在 Excel 2010“属性”页面中,也没有出现在“高级属性”对话框中的任何选项卡中。 “最后的保存时间”会是一些遗物吗?
该评论由网站上的主持人最小化
我明白了为什么“最后保存时间”对我不起作用。 我将函数放在 .XLA 文件中,“ThisWorkbook”指的是 .XLA 文件本身。 因此我需要获取 Application.ActiveWorkbook(可能是函数调用的位置),最终得到: Function DocumentProperty(PropertyName As String) ' '您可以通过索引值或名称来引用文档属性。 以下列表显示了可用的内置文档属性名称: 'Title Subject Author'Keywords Comments Template'Last Author Revision Number Application Name'Last Print Date Creation Date Last Save Time'Total Editing Time Number of Pages Number of Words'Number of字符安全类别'格式管理器公司'字节数行数段落数'幻灯片数注释数隐藏幻灯片数'多媒体剪辑数超链接基本字符数(带空格)调用Application.Volatile(True)Dim ActiveUserWorkbook On Error Resume Next Set ActiveUserWorkbook = Application.ActiveWorkbook If Err.Number 0 Then DocumentProperty = "!!! Error getting Application.ActiveWorkbook: " & Err.Description Exit Function End If DocumentProperty = ActiveUserWorkbook.BuiltinDocumentProperties(PropertyName) If Err.Number 0 然后 DocumentProperty = "!!! Unknown Property Name !!!" 退出函数 End If End 函数
该评论由网站上的主持人最小化
嗨团队,我需要你的帮助。 我有一个 excel 文件,我想在那里找到特定单元格的修改日期。 如果可能的话,请帮我在这里编码。 提前致谢。
该评论由网站上的主持人最小化
我想在 excel 中自动在每个客户之间创建一个空间,我该怎么做?
该评论由网站上的主持人最小化
我LOOOOOOOVE你!!!! TKSSSSSSS
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护