Vba で filedatetime 関数を使用する方法 (例付き)

VBA でFileDateTime関数を使用すると、ファイルの作成日または最終変更日と時刻を返すことができます。

この関数を実際に使用する一般的な方法は次のとおりです。

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

このマクロを実行すると、ユーザーが Excel ワークブックの名前を入力できる入力ボックスが表示されます。

マクロは、特定のブックが作成されたか、または最後に変更された日時を含むメッセージ ボックスを生成します。

次の例は、この構文を実際に使用する方法を示しています。

例: VBA で FileDateTime 関数を使用する方法

次の場所にMy_Workbook.xlsxという Excel ワークブックがあるとします。

C:\Users\bob\Documents\my_workbook.xlsx

このワークブックが最後に作成または変更されたのがいつかを確認したいとします。

これを行うには、次のマクロを作成できます。

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox FileDateTime(wb_name)
    
End Sub

このマクロを実行すると、入力ボックスにワークブックへのパスを入力できるボックスが表示されます。

[OK]をクリックすると、マクロによって次のメッセージ ボックスが表示されます。

このマクロは、ワークブックが最後に変更されたのが07/28/2023 9:27:01であることを示しています。

ファイルが変更された日付だけが必要な場合は、次のようにFileDateTime関数をDateValue関数でラップできることに注意してください。

 SubCheckLastModify ()

    Dim wb_name As String
    
    wb_name = InputBox("Please enter the workbook name:")
    
    MsgBox DateValue(FileDateTime(wb_name))
    
End Sub

ここで、マクロを実行してファイル パスを入力すると、メッセージ ボックスにはフィールドが最後に変更された日付のみが表示され、時刻は表示されません。

注: VBA のFileDateTime関数の完全なドキュメントは、ここで見つけることができます。

追加リソース

次のチュートリアルでは、VBA で他の一般的なタスクを実行する方法について説明します。

VBA: ワークブック内のシート数を数える方法
VBA: ワークブックを保存して閉じる方法
VBA: ワークブックが開いているかどうかを確認する