【VBAリファレンス】VBA実務の必須スキル：Dir関数を極めるための徹底解説と演習解答

ExcelVBA

2026.07.092026.08.22

概要

Excel VBAを駆使して業務効率化を図る際、避けては通れないのが「ファイル操作」です。特に、指定したフォルダ内にある複数のファイルを順番に処理する、あるいは特定のファイルが存在するかを確認するといった処理は、自動化の現場で最も頻繁に求められる要件の一つです。その中心的な役割を果たすのが「Dir関数」です。本記事では、Dir関数の基本から応用、そして練習問題18の解答を通じて、実務で即戦力となるファイル操作の極意を伝授します。

詳細解説：Dir関数とは何か

Dir関数は、指定されたパスやファイル名に一致するファイル名、またはディレクトリ名を返す関数です。非常に強力ですが、その仕組みには「独特の癖」があります。多くの初心者が最初につまずくのは、この関数の「状態保持」という性質です。

Dir関数は、一度呼び出されると内部的に検索状態を保持します。最初のファイルを見つけた後、次のファイルを見つけるためには、引数を指定せずに「Dir()」と記述して呼び出す必要があります。この「初回はパスを指定、次回以降は引数なし」というルールを理解することが、Dir関数マスターへの第一歩です。

また、ワイルドカード（*や?）を組み合わせることで、特定の拡張子を持つファイルだけを抽出したり、特定の文字列を含むファイルだけを対象にしたりすることが可能になります。例えば、「*.xlsx」と指定すれば、Excelファイルのみを取得できます。

練習問題18：Dir関数の実戦演習

今回の練習問題のテーマは「特定のフォルダ内の全Excelファイルをループ処理し、そのファイル名をイミディエイトウィンドウに出力する」というものです。

問題文：
Cドライブの「TestFolder」というフォルダ内にある、すべての「.xlsx」ファイルを取得し、そのファイル名をイミディエイトウィンドウに表示してください。また、対象のフォルダが存在しない場合は、メッセージボックスで「フォルダが見つかりません」と表示するエラーハンドリングを実装してください。

サンプルコード

以下のコードは、実務でそのままテンプレートとして利用可能な堅牢な設計になっています。


Sub ListExcelFiles()
    Dim folderPath As String
    Dim fileName As String
    
    ' フォルダパスの設定（末尾に必ずパス区切り文字を付ける）
    folderPath = "C:\TestFolder\"
    
    ' フォルダの存在確認
    If Dir(folderPath, vbDirectory) = "" Then
        MsgBox "フォルダが見つかりません", vbExclamation
        Exit Sub
    End If
    
    ' 最初のファイルを取得
    fileName = Dir(folderPath & "*.xlsx")
    
    ' ファイルが見つかる限りループ
    Do While fileName <> ""
        ' イミディエイトウィンドウに出力
        Debug.Print fileName
        
        ' 次のファイルを取得
        fileName = Dir()
    Loop
    
    MsgBox "ファイル一覧の取得が完了しました。"
End Sub

コードのポイント解説

1. フォルダパスの確認: Dir関数の第2引数に「vbDirectory」を指定することで、フォルダの存在を確認できます。実務ではパスの誤記によるエラーが多発するため、このような事前チェックは必須です。
2. ファイルパスの結合: `folderPath & “*.xlsx”`のように記述します。フォルダパスの末尾に「\」が含まれているかを判定するロジックを組み込むと、より汎用性が高まります。
3. Do Whileループの終了条件: Dir関数は対象がなくなると空文字（””）を返します。この挙動を終了条件として利用するのが定石です。

実務アドバイス

Dir関数を使いこなす上で、ベテランの私が現場で特に強調したいのが「パスの管理」と「再帰処理」です。

まず、パスの管理について。ハードコード（直接記述）は避け、定数やセルから読み込む設計にしましょう。環境が変わるたびにコードを修正していては、自動化の意味がありません。

次に、再帰処理について。Dir関数は標準ではサブフォルダの中までは検索しません。もしフォルダ階層を深く掘り下げてファイルを検索する必要がある場合は、「FileSystemObject（FSO）」の使用を検討してください。Dir関数は「単一フォルダ内の単純な検索」において、FSOよりも高速でメモリ消費が少ないという大きな利点があります。

また、ファイル名を取得した後に別の処理（ブックを開くなど）を挟む場合、注意が必要です。Dir関数は一度実行されると「その検索状態」を保持し続けます。もしループの中で別のDir関数を使った処理を呼び出すと、元のループが壊れてしまいます。このような場合は、一度ファイル名のリストを配列やコレクションに格納してから、後続の処理を行うのがバグを防ぐための鉄則です。

まとめ

Dir関数は、Excel VBAにおけるファイル操作の「基本のキ」です。今回紹介したループ構造とエラーハンドリングを完璧にマスターすれば、ファイル操作の自動化における多くの課題を解決できるはずです。

最後に、VBAにおいて最も重要なのは「まずは手を動かして動かしてみること」です。サンプルコードをコピー＆ペーストするだけでなく、あえてわざとパスを間違えたり、ワイルドカードを変更したりして、Dir関数がどのように反応するかを確認してください。その試行錯誤の過程こそが、あなたのスキルを確実なものにします。

Dir関数を使いこなし、手作業のファイル集計から解放される未来を勝ち取りましょう。次回の学習でも、さらに高度なファイル操作テクニックをお届けします。