首頁 辦公利器Excel文書處理Excel VBA 【Excel 自訂函數】取得excel檔案修改時間

【Excel 自訂函數】取得excel檔案修改時間

by PartyLin
已發布 最後更新日期 0 評論
檔案最後修改時間=EDITTIME(TODAY())2016/6/2408:51:36 AM
目前電腦時間= EDITTIME1()2018/1/2110:38:40 PM

‘ 利用傳入 Today() 函數的值,讓自訂函數能和 Today() 函數一樣經常重新計算
‘ 函數名稱:EDITTIME
‘ 傳入值型態:日期

Function EDITTIME(filedate As Date)
' 從現在開啟的這個 Excel 檔案 (ThisWorkbook) 的屬性,
' 取得此檔案的 BuiltinDocumentProperties 屬性值中的「Last Save Time(上次修改時間)」,
EDITTIME = ThisWorkbook.BuiltinDocumentProperties("Last Save Time")
' 也可以利用這個屬性取得上次列印日期 (Last Print Date)、最後編輯者 (Last Author) 等等檔案資訊
End Function

'傳入值:無
Function EDITTIME1()
Application.Volatile
' 傳入檔案路徑,取得該檔案的建立或最後修改時間
EDITTIME1 = FileDateTime(ActiveWorkbook.Path)
End Function

發表留言

本網站放置cookies,務求為您提供最佳的網上瀏覽體驗。 同意 閱讀更多

%d 位部落客按了讚: