Excel VBAの Dir関数で、指定されたディレクトリ内のファイルやフォルダを取得できます。使い方や注意点など、サンプルコードをもとに具体的に解説します。
📌 「これ、自動化できたらラクなのに…」と思ったこと、ありませんか？
実はその作業、Excelマクロで簡単に自動化できるかもしれません。
「でもマクロって難しそう…」という方のために、完全初心者向けの入門記事をご用意しました！
👇実務で“そのまま使える”テンプレ付きで、コピペするだけ！
初心者向けエクセルマクロの作り方を解説｜コピペOK実務テンプレ付き
Excel VBA Dir関数とワイルドカードの利用
以下のようなシーンで利用されます。
・特定のパターンに一致するファイルやフォルダを検索するときに使用します。
・ファイルのバッチ処理や特定のファイルを取得する際に有用です。
Excel VBA Dir関数とワイルドカード｜ポイント
・Dir関数を使用する前に、対象のディレクトリを設定する必要があります。
・ワイルドカード `*` は0文字以上の任意の文字列に一致します。例えば、`*.txt`は拡張子がtxtで終わるすべてのファイルに一致します。
Excel VBA Dir関数とワイルドカードのサンプルコード
自分の実力を客観的にチェックしたい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集をご用意しました。
Option Explicit
Sub SearchFilesWithWildcard()
Dim folderPath As String
Dim fileName As String
' ディレクトリの設定
folderPath = "C:\Users\User\Desktop\新しいフォルダー\"
' 指定のパターンに一致するファイルを検索
fileName = Dir(folderPath & "*.txt")
' すべての一致するファイルを表示
Do While fileName <> ""
MsgBox "Found file: " & folderPath & fileName
' 次のファイルを検索
fileName = Dir
Loop
End Sub
サンプルコードは、指定のディレクトリ内のすべてのtxtファイルを検索し、それぞれのファイルパスをメッセージボックスで表示しています。
「Excel VBAで自動化するコードのベースが習得できる解説書」
Excel VBAエキスパートベーシックとスタンダード、どちらを選べばいいか判断が難しい…。そんな方のために、自分に合ったスタート地点がわかる無料のExcelVBAベーシック選択問題集を用意しました。