ExcelVBA ワイルドカードで特定条件に一致するファイルを検索する方法

ExcelVBA  ワイルドカード (`*`, `?`) を使うことで、特定の条件に一致するファイルを簡単に検索し、処理できます。 手作業でファイル名を確認せずに、一括処理が可能になります。 使い方や注意点など、サンプルコードをもとに具体的に解説します。

Excel VBA ワイルドカードで特定条件に一致するファイルを検索｜流れ

Excel VBA ワイルドカードで特定条件に一致するファイルを検索｜使い方

Excel VBA ワイルドカードで特定条件に一致するファイルを検索｜サンプルコード

Option Explicit

Sub ワイルドカードでExcelファイルを開く()
    Dim ファイル名 As String
    Dim フォルダパス As String
    
    ' 検索するフォルダを指定
    フォルダパス = "C:\Users\User\Desktop\データ\"
    
    ' ワイルドカードを使用してファイルを検索
    ファイル名 = Dir(フォルダパス & "*.xlsx")
    
    ' ファイルが見つかる限りループ
    Do While ファイル名 <> ""
        Workbooks.Open フォルダパス & ファイル名
        ファイル名 = Dir() ' 次のファイルを取得
    Loop
End Sub

標準モジュール

Option Explicit

Sub 指定した名前のファイルをリスト化()
    Dim ws As Worksheet
    Dim ファイル名 As String
    Dim フォルダパス As String
    Dim i As Integer
    
    ' シートを指定（結果を出力する場所）
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 検索するフォルダ
    フォルダパス = "C:\Users\User\Desktop\データ\"
    
    ' ワイルドカードでファイル名を検索
    ファイル名 = Dir(フォルダパス & "*.xlsx")
    
    ' 行番号を初期化
    i = 1
    
    ' すべての一致するファイルをリストに追加
    Do While ファイル名 <> ""
        ws.Cells(i, 1).Value = ファイル名
        i = i + 1
        ファイル名 = Dir()
    Loop
End Sub

標準モジュール

Option Explicit

Sub 最新ファイルを開く()
    Dim ファイル名 As String
    Dim フォルダパス As String
    Dim 最新ファイル As String
    Dim 最新日付 As Date
    
    ' フォルダパスを指定
    フォルダパス = "C:\Users\User\Desktop\データ\"
    
    ' 初期化
    最新日付 = #1/1/1900# ' 過去の日付を初期値に設定
    最新ファイル = ""
    
    ' ワイルドカードを使ってファイル検索
    ファイル名 = Dir(フォルダパス & "*.xlsx")
    
    ' すべてのファイルをチェック
    Do While ファイル名 <> ""
        ' 更新日時を取得
        If FileDateTime(フォルダパス & ファイル名) > 最新日付 Then
            最新日付 = FileDateTime(フォルダパス & ファイル名)
            最新ファイル = ファイル名
        End If
        ファイル名 = Dir()
    Loop
    
    ' 最新ファイルを開く
    If 最新ファイル <> "" Then
        Workbooks.Open フォルダパス & 最新ファイル
        MsgBox "最新のファイル: " & 最新ファイル
    Else
        MsgBox "該当するファイルがありません。"
    End If
End Sub

Excel VBA ワイルドカードで特定条件に一致するファイルを検索｜注意点

1. ワイルドカードは Dir()` でのみ使用可能
Workbooks.Open "C:\データ\*.xlsx" 
→ Dir() を使ってファイルを取得し、 Workbooks.Open に渡す

2. ファイルが見つからない場合の処理
・ Dir() が `""` を返した場合は ファイルが存在しない
・ If ファイル名 = "" Then MsgBox "ファイルがありません" でエラーハンドリング

3. フォルダの指定ミス
・フォルダパス の 最後に必ず `\` をつける
・フォルダパス & "*.xlsx" のように結合する

Excel VBA ワイルドカードで特定条件に一致するファイルを検索｜まとめ

ワイルドカードを活用し、効率的にファイルを処理しましょう。