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中的創建時間和上次修改時間

實際上,我們可以在“文檔屬性”對話框中獲得當前工作簿的創建時間和上次修改時間。
步驟 1: 打開 進階屬性 對話框:

在Excel 2007中,單擊 寫字間 按鈕> 準備 > 氟化鈉性能文檔屬性 欄將顯示在工具欄下方,單擊 文檔屬性 > 進階屬性,請參見屏幕截圖:

文檔插入修改時間 3-3
-1
文檔插入修改時間 4-4

 

在Excel 2010/2013中,點擊 文件 > 聯繫我們 > 氟化鈉性能 > 進階屬性.

文檔插入修改時間 4-4

步驟 2: 在裡面 進階屬性 對話框中,您將在“統計信息”選項卡下看到創建時間和上次修改時間。 請參見以下屏幕截圖:

文檔插入修改時間 4-4


箭頭藍色右氣泡 使用VBA代碼在Excel的單元格中插入創建時間和上次修改時間

以下VBA宏將幫助您將當前工作簿信息的創建時間和上次修改時間直接插入單元格中。

在Excel中插入創建時間和上次修改時間

步驟 1:按住 ALT + F11 鍵,並打開“ Microsoft Visual Basic應用程序”窗口。

步驟 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應用程序”窗口。

步驟 2:點擊 插入 >> 模塊,然後將以下宏粘貼到“模塊窗口”中。

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

步驟 3:然後保存並關閉此代碼,然後返回工作表的空白單元格中,輸入公式 = ModDate(),然後按 Enter 鍵。 然後將最後修改的時間插入到單元格中。

-2

在Excel中插入工作簿的創建時間

步驟 1:按住 ALT + F11 鍵,並打開“ Microsoft Visual Basic應用程序”窗口。

步驟 2:點擊 插入 >> 模塊,然後將以下宏粘貼到“模塊窗口”中。

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

步驟 3:保存並關閉此代碼,返回工作表,在空白單元格中輸入公式 = CreateDate(),然後按 Enter 鍵。創建的日期將被插入到單元格中,如以下屏幕截圖所示:

-2

備註: 如果您的單元格不是日期格式,則可能會顯示一個奇怪的數字。 只需將此單元格格式化為 日期 格式,它將顯示為正常日期。


箭頭藍色右氣泡 使用Kutools for Excel在單元格/頁眉/頁腳中插入創建的時間和最後修改的時間

我可以為您介紹一個方便的工具-Excel的Kutools 其中300多個有用功能可以提高您的工作效率? 與它 插入工作簿信息 功能,您可以快速將工作簿路徑,工作簿/工作表名稱,用戶名或創建時間以及上次修改時間插入到單元格或頁眉或頁腳中。

Excel的Kutools, 與以上 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

問候,
亞歷克斯
網站主持人對此評論進行了最小化
你好:我以不同的方式做到了這一點,但也通過編碼。 因為我添加了代碼,所以我使用宏保存工作簿,因此保存為 *.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保護