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

檔案最後修改時間=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

發表評論

發佈留言必須填寫的電子郵件地址不會公開。 必填欄位標示為 *

7 − 6 =

購物車