【VBA】指定したフォルダのファイル一覧を取得する

2021年10月18日2025年6月2日

今回はExcel VBAで指定したフォルダの一覧をExcelに書き出すマクロの作り方を紹介します。
フォルダ内に存在するファイルの一覧をまとめたい場合に使えます。

コピペで使えるようにしていますので、ご活用ください！

ずー

ファイル数が多い時に重宝します！

Excel VBA 脱初心者のための集中講座

created by Rinker

マイナビ出版

コード

Sub ファイル名の一覧を取得()

    Dim Ws As Worksheet
    Set Ws = Worksheets("ファイル一覧")
    
    Dim Cnt As Long: Cnt = 6
    Dim Path As String: Path = Ws.Range("B3")  '格納先
    Dim Buf As String: Buf = Dir(Path & "\" & "*.xlsx")
    Dim MaxRow As Long: MaxRow = Ws.Cells(6, 2).End(xlDown).Row
    
    '前回結果をクリア
    If Ws.Cells(6, 2) <> "" Then
        Ws.Range(Cells(6, 2), Cells(MaxRow, 2)).Clear
    End If
    
    'ファイルがなくなるまで繰り返す
    Do While Buf <> ""
        Ws.Cells(Cnt, 2) = Buf
        Cnt = Cnt + 1
        Buf = Dir()
    Loop
    
    MsgBox "読み込み終了！"

End Sub

Sub ファイル名の一覧を取得()

Dim Ws As Worksheet

Set Ws = Worksheets("ファイル一覧")

Dim Cnt As Long: Cnt = 6

Dim Path As String: Path = Ws.Range("B3") '格納先

Dim Buf As String: Buf = Dir(Path & "\" & "*.xlsx")

Dim MaxRow As Long: MaxRow = Ws.Cells(6, 2).End(xlDown).Row

'前回結果をクリア

If Ws.Cells(6, 2) <> "" Then

Ws.Range(Cells(6, 2), Cells(MaxRow, 2)).Clear

End If

'ファイルがなくなるまで繰り返す

Do While Buf <> ""

Ws.Cells(Cnt, 2) = Buf

Cnt = Cnt + 1

Buf = Dir()

Loop

MsgBox "読み込み終了！"

End Sub

※シート名は「ファイル一覧」としています。

実行後

実行後の表示はこの通りです。
「対象フォルダ」に格納されている拡張子がxlsxのファイル名を一括で取得します。

今回のコードはxlsx以外のファイル名は取得しません。
取得するファイルによって8行目を修正してください。

ファイル名を取得した場合、B6セルから下方向に書き込んでいきます。

この記事では取得したファイル一覧を元に一括でファイル名を変更する方法を紹介しています。