VBAにおけるFileDateTime関数の全貌と実務での活用戦略
Excel VBAを用いたファイル管理や自動化処理において、対象ファイルの「最終更新日時」を取得することは、業務効率化の要とも言える重要なプロセスです。特に、大量のデータソースを扱う際、最新のファイルのみを処理対象とする、あるいはバックアップの生成日時を検証するといったシナリオでは、VBA標準の「FileDateTime関数」が不可欠となります。本記事では、この関数の仕様から、実務で遭遇しやすい落とし穴、そして堅牢なコードを書くための応用テクニックまでを詳細に解説します。
FileDateTime関数の基本仕様と動作原理
FileDateTime関数は、指定したパスにあるファイルの最終更新日時を「バリアント型（Variant/Date）」で返す組み込み関数です。構文は非常にシンプルで、以下の通りです。
FileDateTime(PathName)
引数「PathName」には、対象ファイルのフルパスを文字列で指定します。戻り値はDate型であるため、そのまま比較演算子（> や <）に使用できるほか、Format関数と組み合わせることで、「yyyy/mm/dd hh:nn:ss」といった任意の形式で文字列化することも可能です。 この関数の最大の特徴は、Windowsのファイルシステム（NTFS等）が保持している「更新日時」を直接読み取る点にあります。OSが管理しているメタデータを取得するため、VBA側でファイルの属性を読み込むための重いオブジェクト（FileSystemObjectなど）をインスタンス化せずとも、極めて高速に動作します。
実装における重要な注意点と制約
初心者から中級者に至るまで、FileDateTime関数を使用する際に必ず理解しておかなければならない「挙動の癖」がいくつか存在します。
第一に、「ファイルの存在チェック」です。もし存在しないパスや、読み取り権限のないファイルを引数に渡した場合、VBAは実行時エラー「53（ファイルが見つかりません）」を発生させます。実務コードでは、必ず事前にDir関数やFileSystemObjectのFileExistsメソッドを用いて、対象ファイルが存在することを担保してから関数を呼び出すのが鉄則です。
第二に、「戻り値の型とロケール」です。FileDateTimeが返すのはDate型ですが、これは実行環境のOS設定に依存します。例えば、日本の環境であれば「年/月/日 時:分:秒」の形式で格納されますが、国際的なプロジェクトで共有するツールを作成する場合、Date型の比較演算は安全ですが、文字列として出力する場合は注意が必要です。
第三に、「ネットワークドライブの遅延」です。社内の共有サーバー（NAS等）上にあるファイルに対して頻繁にFileDateTimeを呼び出すと、ネットワークのレスポンス次第で処理が停滞することがあります。大量のファイルをループ処理する際は、一度取得した値を変数に格納し、再利用する設計が求められます。
実務で活用するためのサンプルコード
以下に、特定のフォルダ内にあるファイルを走査し、最終更新日時が「今日」であるファイルのみを抽出してイミディエイトウィンドウに出力する実務的なサンプルコードを提示します。
Sub ExtractRecentFiles()
Dim folderPath As String
Dim fileName As String
Dim fileDate As Date
Dim targetDate As Date
' 対象フォルダのパスを指定
folderPath = "C:\Reports\"
' 比較対象の日付（今回は今日）
targetDate = Date
' フォルダ内の最初のファイルを取得
fileName = Dir(folderPath & "*.xlsx")
' ファイルが見つかる限りループ
Do While fileName <> ""
' エラーハンドリング：ファイル属性取得時の予期せぬエラーを回避
On Error Resume Next
fileDate = FileDateTime(folderPath & fileName)
If Err.Number = 0 Then
' 更新日と今日の日付を比較（時刻部分は除外）
If Int(fileDate) = targetDate Then
Debug.Print "最新ファイル: " & fileName & " (更新日時: " & fileDate & ")"
End If
Else
Debug.Print "アクセス不可: " & fileName
End If
On Error GoTo 0
' 次のファイルを取得
fileName = Dir
Loop
End Sub
このコードでは、Dir関数をループの制御に使い、FileDateTimeで属性を取得しています。特筆すべきは「Int(fileDate)」の使用です。Date型は整数部分に日付、小数部分に時刻を保持しているため、Int関数を通すことで時刻情報を切り捨て、日付のみの比較を可能にしています。
FileSystemObjectとの比較と使い分け
VBAには、FileDateTime関数の他に「FileSystemObject (FSO)」という強力なライブラリが存在します。FSOのFileオブジェクトには「DateLastModified」というプロパティがあり、これも同様に最終更新日時を取得できます。
プロフェッショナルなエンジニアとしては、以下の基準で使い分けるべきです。
1. パフォーマンス重視：FileDateTime関数を使用する。FSOはオブジェクト生成のオーバーヘッドがあるため、数千〜数万ファイルを一度に処理する場合、FileDateTimeの方が明らかに高速です。
2. 柔軟性・機能性重視：FileSystemObjectを使用する。FSOであれば、作成日時（DateCreated）や最終アクセス日時（DateLastAccessed）も容易に取得可能です。また、パスの結合や親フォルダの取得など、ファイル操作全体をオブジェクト指向的に記述できるため、可読性が向上します。
結論として、単に「更新日時だけを知りたい」という単純なタスクであればFileDateTimeで十分ですが、ファイル属性を多角的に操作する必要がある場合はFSOへ移行するのが賢明です。
プロフェッショナルな実務アドバイス
現場でVBAを運用する際、FileDateTime関数とセットで考慮すべきは「時刻の精度」です。Windowsのファイルシステムにおいて、更新日時は「1秒単位」で管理されています。もし「1秒以内に作成されたファイル」を特定するような厳密なロジックを組む場合、FileDateTimeでは精度が不足する可能性があります。その場合は、Windows API（GetFileTime関数）を直接呼び出す必要が出てきますが、これは非常に高度な実装となります。
また、Excelが自動保存する「一時ファイル（~$で始まるファイル）」にも注意が必要です。Dir関数で取得する際、これらの一時ファイルが混入すると、FileDateTimeがエラーを吐くことがあります。ファイル名が「~$」から始まる場合は無視する、といったバリデーションを必ずループ内に組み込んでください。これにより、ツールの堅牢性が劇的に向上します。
まとめ：VBA開発におけるFileDateTimeの立ち位置
FileDateTime関数は、一見すると非常に地味な組み込み関数ですが、ファイル操作を伴う業務自動化の根幹を支える重要なパーツです。その軽快な動作と、標準的なDate型との親和性は、効率的なスクリプトを構築する上で大きな武器となります。
本記事で解説した「エラーハンドリングの徹底」「Dir関数との併用」「Date型比較のロジック」をマスターすれば、ファイル管理系のマクロ作成において、あなたは既に中級者の域を超えていると言っても過言ではありません。
常に「なぜこの関数を使うのか」「どのようなエラーが起こり得るか」という視点を持ち、堅牢なコードを書き続けること。それが、Excel VBAを単なる「自動化ツール」から「業務改善のプラットフォーム」へと昇華させる唯一の道です。日々の業務において、ぜひこのFileDateTime関数を使いこなし、より高度なファイル管理システムの構築に挑戦してください。
