Excel VBAでワイルドカード検索｜特定ファイルをDir関数で取得・一括処理する方法

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

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

Dir関数でワイルドカードを使ってファイルを検索する

【サンプルコード】特定条件に一致するファイルの一覧取得＆一括処理

標準モジュール

1. Option Explicit
3. Sub 指定した名前のファイルをリスト化()
4.     Dim ws As Worksheet
5.     Dim ファイル名 As String
6.     Dim フォルダパス As String
7.     Dim i As Integer
8.     
9.     ' シートを指定（結果を出力する場所）
10.     Set ws = ThisWorkbook.Sheets(1)
11.     
12.     ' 検索するフォルダ
13.     フォルダパス = "C:\Users\User\Desktop\データ\"
14.     
15.     ' ワイルドカードでファイル名を検索
16.     ファイル名 = Dir(フォルダパス & "*.xlsx")
17.     
18.     ' 行番号を初期化
19.     i = 1
20.     
21.     ' すべての一致するファイルをリストに追加
22.     Do While ファイル名 <> ""
23.         ws.Cells(i, 1).Value = ファイル名
24.         i = i + 1
25.         ファイル名 = Dir()
26.     Loop
27. End Sub

標準モジュール

1. Option Explicit
3. Sub 最新ファイルを開く()
4.     Dim ファイル名 As String
5.     Dim フォルダパス As String
6.     Dim 最新ファイル As String
7.     Dim 最新日付 As Date
8.     
9.     ' フォルダパスを指定
10.     フォルダパス = "C:\Users\User\Desktop\データ\"
11.     
12.     ' 初期化
13.     最新日付 = #1/1/1900# ' 過去の日付を初期値に設定
14.     最新ファイル = ""
15.     
16.     ' ワイルドカードを使ってファイル検索
17.     ファイル名 = Dir(フォルダパス & "*.xlsx")
18.     
19.     ' すべてのファイルをチェック
20.     Do While ファイル名 <> ""
21.         ' 更新日時を取得
22.         If FileDateTime(フォルダパス & ファイル名) > 最新日付 Then
23.             最新日付 = FileDateTime(フォルダパス & ファイル名)
24.             最新ファイル = ファイル名
25.         End If
26.         ファイル名 = Dir()
27.     Loop
28.     
29.     ' 最新ファイルを開く
30.     If 最新ファイル <> "" Then
31.         Workbooks.Open フォルダパス & 最新ファイル
32.         MsgBox "最新のファイル: " & 最新ファイル
33.     Else
34.         MsgBox "該当するファイルがありません。"
35.     End If
36. End Sub

ワイルドカード検索を使う際の注意点

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

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

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

VBAワイルドカード検索のまとめ

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

DIRの関連記事はここをクリックで一覧表示します

ExcelVBA

Excel VBA Dir関数でワイルドカード検索｜特定拡張子のファイル一覧を取得する方法

Excel VBA の Dir関数を使って、フォルダ内の特定拡張子ファイルをワイルドカードで検索・取得する方法を解説します。*.txt パターン指定、取得ループ、サンプルコード付きです。...

ExcelVBA

Excel VBA Dir関数戻り値でディレクトリのファイルを取得するコード

Excel VBAの Dir関数は、指定したディレクトリ内のファイルやフォルダを取得するために使用します。具体的な使い方や注意点、サンプルコードを紹介します。...

ExcelVBA

Excel VBA CurDir関数｜現在のディレクトリを取得・変更するコード

Excel VBAのCurDir関数で現在の作業ディレクトリを簡単に取得・変更する方法を解説。構文と引数、注意点、元に戻すコードや複数ファイルの操作例まで、初心者にもわかりやすいサンプルつきで紹介します。...

ExcelVBA

Excel VBAでファイルの存在有無を確認する方法｜Dir関数でチェック

Excel VBAで指定したファイルが存在するかどうかを確認する方法を解説。Dir関数を使ったIf文チェックの書き方、エラー回避の注意点、サンプルコード付きで使い分けまでわかります。...

ExcelVBA

Excel VBAでフォルダ内のファイル名・フルパスを取得する方法｜Dir関数

Excel VBAで指定したフォルダのファイル名やフルパスを取得し、一覧リストに出力する方法を解説。Dir関数の使い方、サンプルコード付きでわかりやすく紹介します。...

ExcelVBA

Excel VBAでワイルドカード検索｜特定ファイルをDir関数で取得・一括処理する方法

Excel VBAでワイルドカード（*, ?）を使い、特定ファイル名に一致するデータを自動検索して一覧取得する方法を解説。Dir関数によるファイル検索、一括処理の実装例、最新ファイルの取得コードまでサンプル付きで紹介します。...