📊連載第22回！初心者のためのExcel VBA入門：ファイル検索を自動化！📂 Dir関数とFileDateTime関数で業務効率アップ🚀

Last updated at 2025-08-20Posted at 2025-07-03

Excel VBAで最新ファイルを効率的に検索する関数設計テクニック

私はVBAの活用経験を通じて得た知識を整理し、共有する目的で記事を作成しているプログラミング歴1年半になるエンジニアです。前回は、選択したセル範囲に重なる図形を一括削除するテクニックについて解説しました。今回は、指定されたフォルダ内から最新のExcelファイルを自動的に検索・取得する実践的な関数について詳しく説明します。

はじめに

業務でExcelを使用していると、特定のフォルダに複数のバージョンのファイルが保存され、その中から最新のファイルを自動的に見つけて処理する必要に迫られることがあります。特に、定期的に更新されるテンプレートファイルや、バージョン管理されたデータファイルを扱う際には、手動でファイルを探すのは非効率的です。

今回紹介するSearchFile関数は、このような課題を解決するために設計されました。指定したフォルダ内から特定のパターンに一致する最新のファイルを自動的に検索し、そのフルパスを返す実用的な関数です。

コードの全体構造

'指定フォルダ内で特定パターンに一致する最新のファイルを検索してフルパスを返す関数
Function SearchFile(ByVal folderPath As String) As String

   '指定パターンに一致する最初のファイルを検索
   Dim fileName As String
   fileName = Dir(folderPath & "テンプレート_rev*")
   
   '最も新しいファイルのファイル名を格納する変数
   Dim newFileName As String
   
   '最新の更新日時を記録する変数
   Dim MaxTime As Date
   
   'ファイルが見つからなくなるまで繰り返し処理
   Do Until fileName = ""
   
       '現在のファイルの最終更新日時を取得
       Dim fileTime As Date
       fileTime = FileDateTime(folderPath & fileName)
       
       '現在のファイルがこれまでで最新かどうかを判定
       If fileTime > MaxTime Then
       
           '最新の更新日時を現在のファイルの日時に更新
           MaxTime = fileTime
           
           '最新ファイル名を現在のファイル名に更新
           newFileName = fileName
       End If
       
       'パターンに一致する次のファイルを取得
       fileName = Dir
   Loop
   
   '最新ファイルのフルパスを戻り値として返す
   SearchFile = folderPath & newFileName
End Function

Dir関数の仕組みと活用法

Dir関数の基本動作

Dir関数は指定したパスやパターンに一致するファイル名やディレクトリ名を返す関数です。基本的な構文は以下の通りです。

Dir([pathname] [, attributes])

pathname: 検索対象のパスやファイル名パターン（省略可）
attributes: ファイル属性を指定する定数（省略可）

属性を使った高度な検索

Dir関数の第2引数を使うと、特定の属性を持つファイルやフォルダに絞った検索が可能です。

vbNormal: 標準ファイル (0)
vbReadOnly: 読み取り専用ファイル (1)
vbHidden: 隠しファイル (2)
vbSystem: システムファイル (4)
vbDirectory: フォルダ (16)

Dir関数の活用

Dir関数は、VBAにおけるファイル検索の基本的なツールです。この関数の特徴的な動作を理解することが、今回のコードを理解する鍵となります。

fileName = Dir(folderPath & "テンプレート_rev*")

この最初の呼び出しでは、検索パターンを指定しています。「テンプレート_rev*」というパターンは、「テンプレート_rev」で始まり、その後に任意の文字が続くファイル名を検索することを意味します。アスタリスク（*）はワイルドカード文字として機能し、任意の文字列にマッチします。

ワイルドカードとは

特定の文字の代わりに使える特殊文字のことです。あいまいな文字の検索に使用します。

*（アスタリスク）: 任意の文字数の任意の文字
?（クエスチョンマーク）: 任意の1文字

例: "テンプレート_rev*.xlsx" → 「テンプレート_rev」で始まるすべてのExcelファイル
例: "テンプレート_rev???.xlsx" → 「テンプレート_rev」で始まり、3文字を含むファイル

Dir関数の連続呼び出しパターン

Dir関数の重要な特徴は、最初の呼び出しでパターンを指定した後、引数なしで呼び出すことで、同じパターンに一致する次のファイルを順次取得できることです。

fileName = Dir  ' 引数なしで次のファイルを取得

この仕組みにより、Do Untilループ内で同じパターンのファイルを順次処理することが可能になります。一致するファイルがなくなると、Dir関数は空文字列（""）を返し、ループが終了します。

Dir関数の理解のポイント

返り値はファイル名のみ（拡張子付き）
フルパスではない点に注意してください。
検索結果は内部的に保持
最初のDir実行から次のDirを連続して呼び出すことで、順番に全ファイルにアクセスできます。
違う検索パターンで再度Dirを使うとリセット
異なる条件でDirを呼び出すと、以前の検索状態は失われます。

ファイル時刻の取得と比較

FileDateTime関数の役割

fileTime = FileDateTime(folderPath & fileName)

FileDateTime関数は、指定されたファイルの最終更新日時を取得します。この関数はDate型の値を返し、VBAの標準的な日時比較演算子を使用して比較することができます。

Date型変数の初期化について

興味深い点として、MaxTime変数はDim文で宣言されただけで、明示的に初期化されていません。VBAでは、Date型（日付や時刻を保存できる型）変数の初期値は1900年1月1日の00:00:00となります。実際のファイルはこれより新しい日付を持つため、最初のファイルで必ずMaxTimeが更新されることになります。

実装時の注意点と改良案

現在のコードの潜在的な問題点

このコードは基本的な機能を提供していますが、実際の業務で使用する際にはいくつかの改良を検討すべき点があります。

1. エラーハンドリングの不足

現在のコードでは、以下のようなエラー状況が考慮されていません。

指定されたフォルダパスが存在しない場合
該当するファイルが1つも見つからない場合
ファイルアクセス権限の問題

2. 戻り値の一貫性

ファイルが見つからない場合、関数は元のfolderPathに空文字列を連結した結果を返します。これでも、問題はありませんが、呼び出し側で見つからなかったことが、明確な戻り値を設定するほうが良いでしょう。

改良版の実装例

以下のような改良を加えることで、より堅牢な関数にできます。

1. フォルダパスの正規化

フォルダパスの末尾に "¥" が付いていない場合に自動的に追加します。

' フォルダパスの正規化
If Right(folderPath, 1) <> "¥" Then
    folderPath = folderPath & "¥"
End If

2. フォルダの存在確認

処理を開始する前に、指定されたフォルダが実際に存在するかを確認します。

' フォルダの存在確認
If Dir(folderPath, vbDirectory) = "" Then
    SearchFileImproved = "" ' フォルダが存在しない
    Exit Function
End If

3. エラーハンドリングの導入

関数全体をエラーハンドリングで囲み、予期せぬエラーが発生した場合でも安全に空文字を返します。

On Error GoTo ErrorHandler
' 関数の本体
Exit Function

ErrorHandler:
SearchFileImproved = "" ' エラー発生時は空文字を返す

4. 完全な関数の実装

上記の改良を取り入れた完全な関数の実装例です。

' 指定されたフォルダから最新の「テンプレート_rev*」ファイルのパスを取得する関数
Function SearchFileImproved(ByVal folderPath As String) As String

    On Error GoTo ErrorHandler
    
    ' フォルダパスの末尾に「¥」がなければ追加する
    If Right(folderPath, 1) <> "¥" Then
        folderPath = folderPath & "¥"
    End If
    
    ' 指定されたフォルダが存在するか確認する
    If Dir(folderPath, vbDirectory) = "" Then
        SearchFileImproved = ""
        Exit Function
    End If
    
    Dim fileName As String      ' 検索対象の現在のファイル名
    Dim newFileName As String   ' 最新と判断されたファイル名
    Dim MaxTime As Date         ' 最新ファイルの更新日時
    Dim foundFile As Boolean    ' ファイルが見つかったかのフラグ
    
    ' テンプレートファイルの検索を開始する
    fileName = Dir(folderPath & "テンプレート_rev*")
    foundFile = False
    
    ' 対象のファイルをすべて調べる
    Do Until fileName = ""
    
        Dim fileTime As Date
        fileTime = FileDateTime(folderPath & fileName)
        
        ' より新しいファイルが見つかった場合、情報を更新する
        If Not foundFile Or fileTime > MaxTime Then
            MaxTime = fileTime
            newFileName = fileName
            foundFile = True
        End If
        
        ' 次のファイルを取得する
        fileName = Dir
    Loop
    
    ' 検索結果を返す
    If foundFile Then
        SearchFileImproved = folderPath & newFileName
    Else
        SearchFileImproved = ""
    End If
    
    Exit Function
    
ErrorHandler:
    ' エラーが発生したことを示すメッセージと詳細をイミディエイトウィンドウに出力
    Debug.Print "SearchFileImproved関数でエラーが発生しました。"
    Debug.Print "エラー番号: " & Err.Number
    Debug.Print "エラー内容: " & Err.Description
    SearchFileImproved = "" ' エラー発生時は空文字を返す
    Err.Clear               ' エラー情報をクリア
End Function

応用発展のアイデア

1. 検索パターンの可変化

現在のコードでは検索パターンが固定されていますが、これを引数として受け取ることで、より汎用的な関数にできます。

Function SearchLatestFile(ByVal folderPath As String, _
                    ByVal searchPattern As String) As String
                    
    ' 実装内容は同様だが、searchPatternを使用
    fileName = Dir(folderPath & searchPattern)
    ' 以下同様...
    
End Function

2. ファイル情報の詳細取得

ファイル名だけでなく、サイズや属性なども含めた情報を返すように拡張することも可能です。

' ファイル情報を格納するための構造体
Type FileInfo
    FullPath As String     ' ファイルのフルパス
    FileName As String     ' ファイル名のみ
    LastModified As Date   ' 最終更新日時
End Type

Function GetLatestFileInfo(ByVal folderPath As String, _
                    ByVal searchPattern As String) As FileInfo

    ' --- 省略 ---
    
    ' 結果を格納する変数
    Dim result As FileInfo              
    
    ' FileInfo型の構造体を返す実装
    result.FullPath = folderPath & fileName
    result.FileName = fileName
    result.LastModified = fileTime

    ' 結果を返す
    GetLatestFileInfo = result    
     
End Function

ユーザー定義型（Type）は、複数の異なるデータ型をひとつのまとまりとして扱うための仕組みです。これにより、複数の関連情報をひとつのパッケージとしてまとめられるので、データの管理がとても便利になります。例えば上記のFileInfo型では、ファイル名、パス、日時という3つの異なる情報を一度に扱えます。

3. 複数ファイルの一括処理

最新のファイルだけでなく、条件に一致するすべてのファイルを配列で返す機能も考えられます。

Function GetAllMatchingFiles(ByVal folderPath As String, _
                    ByVal searchPattern As String) As String()
    ' 一致するファイルの配列を返す
End Function

4. ログ機能の追加

業務システムでは、どのファイルが選択されたかのログを残すことが重要な場合があります。

' 選択されたファイル情報をログファイルに記録
Dim logText As String
logText = Format(Now, "yyyy-mm-dd hh:mm:ss") & " - Selected: " & selectedFile

' ログファイルに追記
Open logFilePath For Append As #1
Print #1, logText
Close #1

まとめ

今回解説したSearchFile関数は、シンプルながらも実用性の高いファイル検索機能を提供します。Dir関数とFileDateTime関数を組み合わせることで、特定のパターンに一致する最新のファイルを効率的に検索できます。

この関数の核心となるのは、ファイル名のパターンマッチングと更新日時による比較という2つの技術の組み合わせです。ワイルドカードを使用したパターンマッチングにより必要なファイルを絞り込み、実際の更新日時を基準として最新性を判定することで、確実性の高いファイル選択を実現しています。

実際の業務で活用する際には、エラーハンドリングや戻り値の一貫性などの改良を加えることで、より堅牢なシステムを構築できます。また、検索パターンの可変化や詳細情報の取得など、様々な方向への拡張も可能です。

このような基本的なファイル操作関数をマスターすることで、日常の業務効率化だけでなく、より複雑なシステム開発の基礎スキルも身につけることができます。ぜひ、自分の業務環境に合わせてカスタマイズし、活用してみてください。

次回は、選択した範囲で一行おきに空行を挿入する実用的なマクロについて解説します。ぜひご期待ください！

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up