VBAのDir関数を使いこなす方法：ファイル名やパスの取得、ワイルドカードの活用

 Dir関数の構成解説

1. pathname　⇒　filePath & “*.*”
   • pathname は 「Dir関数」に渡される最初の引数で、検索対象のファイルまたはフォルダのパスを示します。
     ※ “*.*” はワイルドカードで、ディレクトリ内のすべてのファイルを意味します。
     最初の「*」は「任意の文字列」を表し、「.*」は「任意の拡張子」を意味します。
     つまり、フォルダ内の拡張子に関係なく全てのファイルを検索する指示を出しているということです。
2. attributes　⇒　省略
   • 今回、属性は何も指定していません。
     全てのファイルを検索します。

■ コードの解説

1. Sub GetFirstFileName()
   • ここでは、Subステートメントを使用して新しいプロシージャ（サブルーチン）を定義しています。
     このプロシージャの名前は GetFirstFileName です。
2. Dim filePath As String
   • この行では、新しい変数「filePath」を宣言しています。
     「filePath」 は「文字列型（String）」の変数として宣言されています。
     この変数は、後の行でファイルパス（フォルダの場所）を格納するために使われます。
3. Dim fileName As String
   • この行では、もう一つの変数「fileName」を文字列型（String）として宣言しています。
     この変数は、Dir関数で取得したファイル名を格納するために使用されます。
4. filePath = “C:\サンプル\”
   • ここでは、変数「filePath」にフォルダのパスが代入されています。
     この例では、”C:\サンプル\” というフォルダが指定されています。
     
     このパスは、Dir関数で検索対象とするフォルダを示しています。
     Windowsのファイルシステムでは、ディレクトリの区切りには「\（バックスラッシュ）」を使用します。
5. fileName = Dir(filePath & “*.*”)
   • ここでは、Dir関数を使用して指定したフォルダ内の最初のファイル名を取得しています。
     「filePath & “*.*”」という表記により、変数「filePath」の値（ “C:\サンプル\” ）にワイルドカード「”*.*”」が追加されます。
     ワイルドカード 「”*.*”」は、フォルダ内のすべてのファイルを意味し、拡張子にかかわらずフォルダ内の全ファイルを検索対象にします。
     
     例えば、”C:\サンプル\” フォルダ内に、”サンプル1.xlsx” というファイルが最初にあれば、この最初にあるファイル名が取得され、変数「fileName」に代入されます。
6. Debug.Print fileName
   • Debug.Printは、VBAのイミディエイトウィンドウにデータを出力するためのコマンドです。
     通常、デバッグ目的で使用されます。
     変数「fileName」に格納されているファイル名をイミディエイトウィンドウに表示します。
7. End Sub
   • ここで、Subステートメントで始まったサブルーチンが終了します。

 Dir関数の構成解説

1. pathname　⇒　filePath & “*.*”
   • ファイルパス「C:\サンプル\*.*」のファイルを検索しています。
     ※「*」はワイルドカードといい、どんな文字でも構わないという意味です。
2. attributes　⇒　省略
   • 今回、属性は何も指定していません。
     全てのファイルを検索します。

■ コードの解説

1. Sub GetAllFiles()
   • この行では、新しいサブルーチン GetAllFiles が定義されています。
     Subステートメントは「Subroutine（サブルーチン）」を意味し、一連の処理をまとめたブロックを作成します。
2. Dim filePath As String
   • ここでは、「filePath」という文字列型（String）の変数を宣言しています。
3. Dim fileName As String
   • この行では、「fileName」という文字列型（String）の変数を宣言しています。
4. filePath = “C:\サンプル\”
   • こでは、変数「filePath」にフォルダのパス（”C:\サンプル\”）が代入されています。
     このパスはWindowsのディレクトリ構造に基づいて指定されており、検索対象となるフォルダを指定します。
5. fileName = Dir(filePath & “*.*”)
   • Dir関数を使用して、変数「filePath」に指定されたフォルダ内の最初のファイル名を取得し、変数「fileName」に格納します。
     「filePath & “*.*”」の部分は、変数「filePath」に格納されたパス（例： “C:\サンプル\”）とワイルドカード「 “*.*”」 を連結したものです。
     ワイルドカード「”*.*”」は、フォルダ内のすべてのファイルを検索するために使用されます。
     「*」 は任意の文字列を意味し、「. *」は任意の拡張子を意味します。
     この行の実行によって、指定されたフォルダ内で最初に見つかったファイルの名前が変数「fileName」 に代入されます。
     たとえば、フォルダ内に「サンプル1.xlsx」というファイルがあれば、それが変数「fileName」に格納されます。
6. Do While fileName <> “”
   • ここでは、Do Whileループが開始されます。
     このループは、変数「fileName」が空（””）でない限り繰り返されます。
     言い換えれば、変数「fileName」にファイル名が格納されている限りループが続きます。
     初回の「Dir関数」で最初のファイル名が取得され、以降のファイル名が順次取得されていく間、このループが実行され続けます。
     フォルダ内のすべてのファイルが処理され、Dir関数が空の文字列を返した時点でループは終了します。
7. Debug.Print fileName
   • Debug.Printは、VBAのイミディエイトウィンドウにデータを出力するためのコマンドです。
     通常、デバッグ目的で使用されます。
     変数「fileName」に格納されているファイル名をイミディエイトウィンドウに表示します。
8. fileName = Dir()
   • ここで再び「Dir関数」が呼び出されています。
     2回目以降の「Dir関数」の呼び出しでは引数を省略します。
     これにより、前回の Dir 呼び出しと同じフォルダ内で次のファイル名を取得することができます。
     たとえば、前回の「Dir関数」で「サンプル1.xlsx」が取得された場合、次の呼び出しで「サンプル2.xlsx」など別のファイル名が取得され、再び変数「fileName」に格納されます。
     このプロセスがフォルダ内のすべてのファイルが取得されるまで繰り返されます。
9. Loop
   • この行は、Do Whileループの終わりを示します。
     ループの最後に到達すると、再び Do While の条件に戻り、変数「fileName」 が空でない限りループが継続されます。
     ループの中では、ファイル名を出力し、次のファイル名を取得する処理が繰り返されます。
     すべてのファイル名が処理されると、「Dir関数」が空文字列を返し、ループが終了します。
10. End Sub
    • ここで、Subステートメントで始まったサブルーチンが終了します。

 Dir関数の構成解説

1. pathname　⇒　filePath & “*.*”
   • ファイルパス「C:\サンプル\*.*」のファイルを検索しています。
     ※「*」はワイルドカードといい、どんな文字でも構わないという意味です。
2. attributes　⇒　vbHidden Or vbReadOnly
   • vbHidden「属性のないファイルと隠しファイル」
     vbReadOnly「属性のないファイルと読み取り専用のファイル」
     
     この２つを含む、全てのファイルを検索します。
     また、複数指定したい場合は「Or」を使用することもできます。
     ⇒ もう一度、属性について確認したい方は、「attributes」を参照

■ コードの解説

1. Sub GetFilesWithAttributes()
   • ここでは、GetFilesWithAttributes というサブルーチンが定義されています。
     Sub ステートメントを使用して、一連の操作をまとめた処理を記述します。
2. Dim filePath As String
   • この行では、「filePath」という文字列型（String）の変数が宣言されています。
3. Dim fileName As String
   • ここでは、変数「fileName」という文字列型（String）の変数が宣言されています。
     変数「fileName」は、Dir関数を使用して取得したファイル名を一時的に格納します。
     ファイル名は順次この変数に格納され、ループの中で処理されます。
4. filePath = “C:\サンプル\”
   • この行では、変数「filePath」に「C:\サンプル\」という具体的なフォルダのパスが代入されています。
     Windowsのファイルシステムの「Cドライブ」にある「サンプル」フォルダを指しています。
5. fileName = Dir(filePath & “*.*”, vbHidden Or vbReadOnly)
   • この行では、「Dir関数」を使用して、変数「filePath」 で指定されたフォルダ内のファイルを検索します。
     ここで検索されるファイルは、特定の属性を持つファイル（隠しファイルや読み取り専用ファイル）です。
     
     「filePath & “*.*”」これは、変数「filePath」 （例：”C:\サンプル\”）とワイルドカード「”*.*”」を連結した文字列です。
     「”*.*”」は、フォルダ内のすべてのファイルを検索対象にするワイルドカードです。
     つまり、フォルダ内のすべてのファイルが検索の対象になります。
     
     「vbHidden Or vbReadOnly」ここで指定しているのは、検索するファイルの属性です。
     vbHidden は「隠しファイル」を意味し、vbReadOnly は「読み取り専用ファイル」を意味します。
     Or 演算子を使ってこれらを組み合わせることで、隠しファイルまたは読み取り専用ファイル（またはその両方）のいずれかに該当するファイルを検索対象にします。
     この行の実行により、指定された属性に一致する最初のファイル名が、変数「fileName」に格納されます。
6. Do While fileName <> “”
   • ここでは Do Whileループが開始されます。
     このループは、変数「fileName」にファイル名が格納されている限り繰り返されます。
     もし、変数「fileName」が空白（””）の場合、ループは終了します。
     初回のDir関数で取得された最初のファイル名が変数「fileName」に格納され、次に他のファイル名が順次取得されていきます。
     このループは、フォルダ内のすべてのファイルが取得されるまで続きます。
7. Debug.Print fileName
   • この行では、変数「fileName」に格納されたファイル名をデバッグウィンドウに出力しています。
     Debug.Print は、VBAのデバッグ機能であり、コードの実行中に変数の値を確認したり、出力を記録するために使用します。
8. fileName = Dir()
   • Dir関数が再び呼び出されています。
     2回目以降の呼び出しでは引数を省略し、前回の検索結果に続く次のファイル名を取得します。
     変数「fileName」に次のファイル名が格納されます。
     これにより、ループ内で次々にファイル名が取得されて処理されていきます。
     フォルダ内のすべての隠しファイルや読み取り専用ファイルが取得されるまで、この処理が繰り返されます。
9. Loop
   • この行は Do While ループの終わりを示します。
     ループがここに到達すると、再び Do While の条件に戻り、fileName が空白でない限りループを続けます。
     すべてのファイルが処理されると、「Dir関数」が空の文字列を返し、ループが終了します。
10. End Sub
    • ここで、Subステートメントで始まったサブルーチンが終了します。

 Dir関数の構成解説

1. pathname　⇒　filePath & “*.*”
   • ファイルパス「C:\サンプル\*.*」のファイルを検索しています。
     ※「*」はワイルドカードといい、どんな文字でも構わないという意味です。
2. attributes　⇒　省略
   • 今回、属性は何も指定していません。
     全てのファイルを検索します。

■ コードの解説

1. Sub GetExcelFiles()
   • この行では、新しいサブルーチン GetExcelFiles が定義されています。
2. Dim filePath As String
   • この行では、「filePath」という文字列型（String）の変数を宣言しています。
3. Dim fileName As String
   • この行では、「fileName」という文字列型（String）の変数を宣言しています。
4. filePath = “C:\サンプル\”
   • この行では、変数「filePath」に 「C:\サンプル\」というフォルダパスが代入されています。
     このフォルダがDir 関数によって検索される対象となります。
5. fileName = Dir(filePath & “*.xlsx”)
   • この行では、Dir 関数を使用して指定されたフォルダ内の最初のExcelファイル（拡張子が .xlsx）を検索し、そのファイル名を変数「fileName」に格納します。
     
     「filePath & “*.xlsx”」ここでは、変数「filePath」に格納されたフォルダパス（例： “C:\サンプル\”）に 「*.xlsx」というワイルドカードを追加しています。
     このワイルドカード 「*.xlsx」は、Excelファイル（拡張子が .xlsx）を意味します。
     この指定により、フォルダ内の .xlsx 拡張子を持つファイルのみが検索されます。
     例えば、フォルダ内に “サンプル1.xlsx” というファイルが存在していれば、それが最初に検索され、変数「fileName」に格納されます。
6. Do While fileName <> “”
   • ここでは、Do While ループが定義されています。
     fileName 変数にファイル名が格納されている間、このループが繰り返し実行されます。
     もし、変数「fileName」が空白（””）の場合、ループは終了します。
     初回の Dir 関数で取得された最初のExcelファイル名が変数「fileName」に格納されており、このループ内で次々にファイル名が処理されます。
7. Debug.Print fileName
   • 変数「fileName」に格納されているExcelファイル名をデバッグウィンドウに出力します。
     Debug.Print は、デバッグ目的で使用されるコマンドで、イミディエイトウィンドウに出力が表示されます。
8. fileName = Dir()
   • この行で再び Dir 関数が呼び出されます。
     2回目以降の Dir 関数の呼び出しでは、引数なしで前回の検索結果に続く次のExcelファイル名を取得します。
     これにより、変数「fileName」に次のExcelファイル名が格納されます。
     フォルダ内のすべてのExcelファイルが処理されるまでこの処理が繰り返されます。
9. Loop
   • この行は、Do While ループの終わりを示します。
     ループがここに到達すると、再び Do While の条件に戻り、fileName が空白でない限りループが継続します。
     フォルダ内のすべての「.xlsx」ファイルが処理されるまで、Dir 関数が繰り返し呼び出されます。
     すべてのファイルが処理されると、ループは終了します。
10. End Sub
    • ここで、Subステートメントで始まったサブルーチンが終了します。

 Dir関数の構成解説

1. pathname　⇒　filePath & “*.*”
   • ファイルパス「C:\サンプル\*.*」のファイルを検索しています。
     ※「*」はワイルドカードといい、どんな文字でも構わないという意味です。
2. attributes　⇒　省略
   • 今回、属性は何も指定していません。
     全てのファイルを検索します。

■ コードの解説

1. Sub OpenMultipleExcelFiles()
   • この行では、OpenMultipleExcelFiles というサブルーチンが定義されています。
     このサブルーチンの目的は、指定されたフォルダ内にあるすべてのExcelファイルを順番に開くことです。
2. Dim filePath As String
   • この行では、「filePath」という文字列型（String）の変数を宣言しています。
3. Dim fileName As String
   • この行では、「fileName」という文字列型（String）の変数が宣言されています。
4. filePath = “C:\サンプル\”
   • この行では、変数「filePath」に 「C:\サンプル\」という具体的なフォルダのパスが代入されています。
     このフォルダが検索対象となり、フォルダ内のExcelファイルが次に説明する Dir 関数で検索されます。
5. fileName = Dir(filePath & “*.*”)
   • 「Dir 関数」を使用して、指定されたフォルダ内の最初のファイル名を取得し、変数「fileName」に格納します。
     「filePath & “*.*”」は、変数「filePath」に格納されたフォルダパス（例：”C:\サンプル\”）にワイルドカード “*.*” を追加しています。
     “*.*” は、フォルダ内のすべてのファイルを検索対象にするワイルドカードで、拡張子に関係なくすべてのファイルを取得します。
     この行の実行によって、フォルダ内の最初のファイル名（例：”サンプル1.xlsx”）が、変数「fileName」に格納されます。
6. Do While fileName <> “”
   • ここでは、Do While ループが開始されます。
     変数「fileName」にファイル名が格納されている間、つまりファイルが存在する限りこのループは繰り返し実行されます。
     fileName が空白（””）になると、すべてのファイルが処理されたことを意味し、ループは終了します。
7. Workbooks.Open filePath & fileName
   • この行では、「Workbooks.Open() メソッド」を使用して、Excelファイルを開いています。
     「filePath & fileName」 ここでは、変数「filePath」に格納されたフォルダのパスと、「fileName」 に格納されたファイル名を結合して、完全なファイルパスを指定しています。
     
     例えば、filePath が「C:\サンプル\」で、変数「fileName」が 「サンプル1.xlsx」であれば、この行は 「C:\サンプル\サンプル1.xlsx」という完全なパスを作成し、そのファイルを開きます。
     ※「Workbooks.Open() メソッド」については、別記事で解説を行っています。合わせてご覧ください。
8. fileName = Dir()
   • 「Dir関数」を再び呼び出して、次のファイル名を取得しています。
     2回目以降の Dir 関数の呼び出しでは、引数を省略することで、前回の検索結果に続く次のファイルを取得します。
     この行の実行により、次のファイル名が、変数「fileName」に格納され、ループ内で処理が続行されます。
     フォルダ内のすべてのファイルが処理されるまで、このプロセスが繰り返されます。
9. Loop
   • ここで、Do While ループが終了します。
     ループの最後に到達すると、再び Do While の条件に戻り、fileName が空白でない限りループを継続します。
     すべてのファイルが処理されるまで、ループは繰り返されます。
     すべてのファイルが処理されると、Dir 関数は空白を返し、ループが終了します。
10. End Sub
    • この行で、Sub ステートメントで始まったサブルーチンが終了します。

 Dir関数の構成解説

1. pathname　⇒　filePath & “*.*”
   • ファイルパス「C:\サンプル\*.*」のファイルを検索しています。
     ※「*」はワイルドカードといい、どんな文字でも構わないという意味です。
2. attributes　⇒　vbHidden Or vbReadOnly
   • vbHidden「属性のないファイルと隠しファイル」
     vbReadOnly「属性のないファイルと読み取り専用のファイル」
     
     この２つを含む、全てのファイルを検索します。
     また、複数指定したい場合は「Or」を使用することもできます。
     ⇒ もう一度、属性について確認したい方は、「attributes」を参照

■ コードの解説

1. Sub ListFilesWithHyperlinks()
   • この行では、ListFilesWithHyperlinks というサブルーチンが定義されています。
     Sub ステートメントはVBAのサブルーチン（複数のコード行をまとめて処理する）を定義するために使用されます。
2. Dim Ws As Worksheet
   • 「Ws」は Worksheet 型のオブジェクト変数として宣言されています。
     Worksheet はExcelのシートオブジェクトを表し、この変数に操作対象のシートを代入することで、指定されたシート上で処理を行うことができます。
3. Dim filePath As String
   • 「filePath」は文字列型（String）の変数で、フォルダのパスを格納します。
4. Dim fileName As String
   • 「fileName」は文字列型（String）の変数で、「Dir関数」で取得したファイル名を格納します。
5. Dim i As Long
   • 「i」は長整数型（Long）の変数で、シート上の行番号を保持します。
     結果のファイル名とハイパーリンクを表示する行を決定するために使用されます。
     長整数型は大きな数値でも扱えるため、行番号が大きくなっても対応可能です。
6. filePath = “C:\サンプル\”
   • 変数「filePath」にフォルダパス「C:\サンプル\」が代入されています。
     このパスは、「Dir関数」が検索するフォルダを示しています。
     ファイルを検索する対象のディレクトリです。
7. Set Ws = ThisWorkbook.Sheets(1)
   • オブジェクト変数「Ws」に現在のワークブック（ThisWorkbook）の最初のシート（Sheets(1)）がセットされています。
     「Setステートメント」はオブジェクト型変数に値を代入するために使用されます。
     このシートにファイル名とハイパーリンクが表示されます。
8. i = 1
   • 「i」に「1」を代入し、シート上の表示を開始する行番号を初期化しています。
     ファイル名とハイパーリンクを1行目から表示し始めます。
9. fileName = Dir(filePath & “*.*”, vbHidden Or vbReadOnly)
   • 「Dir関数」を使用して、変数「filePath」で指定されたフォルダ内の最初のファイル名を取得し、変数「fileName」に格納します。
     “*.*” はワイルドカードで、拡張子に関わらずすべてのファイルを検索対象とします。
     「vbHidden Or vbReadOnly」 により、隠しファイルや読み取り専用ファイルも検索対象に含まれます。
10. Do While fileName <> “”
    • Do While ループの開始です。
      変数「fileName」が空でない限り（つまり、フォルダにファイルが存在する限り）、ループが実行されます。
      フォルダ内のすべてのファイルが処理されるまでループが続きます。
11. Ws.Hyperlinks.Add
    Anchor:=Ws.Cells(i, 1), _
    Address:=filePath & fileName, _
    TextToDisplay:=fileName
    • ハイパーリンクの設定です。
      • Ws.Hyperlinks.Add:
        • オブジェクト変数「Ws」にセットされたシートに対してハイパーリンクを追加します。
      • Anchor:=Ws.Cells(i, 1):
        • Anchor は、ハイパーリンクを挿入するセルを指定します。
          ここでは i 行目の1列目のセル（Ws.Cells(i, 1)）が指定されています。
      • Address:=filePath & fileName:
        • Address にはリンク先のアドレスを指定します。
          変数「filePath」と変数「fileName」を結合しフルパスとすることで、クリックするとそのファイルが開くリンクが設定されます。
      • TextToDisplay:=fileName:
        • TextToDisplay にはセルに表示されるリンクテキストを指定します。
          ここではファイル名をリンクテキストとして表示します。
12. i = i + 1
    • 「i」の値を「1」増加させます。
      これにより、次のファイル名とハイパーリンクがシートの次の行に表示されます。
      行を下にずらして表示するための処理です。
13. fileName = Dir()
    • 「Dir関数」を再度呼び出し、次のファイル名を取得します。
      2回目以降の Dir 関数の呼び出しでは、引数を省略することで前回の検索結果に続くファイルを取得できます。
      このプロセスを繰り返し、フォルダ内のすべてのファイルを処理します。
14. Loop
    • ここで Do While ループが終了します。
      ループはフォルダ内のすべてのファイルが処理されるまで繰り返されます。
      すべてのファイルが処理されると、変数「fileName」が空になりループが終了します。
15. End Sub
    • サブルーチンの終了を意味します。