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

VBA

2021.10.182021.12.05

この記事は約1分で読めます。

記事内に広告が含まれています。

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

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

うめ

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

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

created by Rinker

マイナビ出版

30日間無料登録できる「Amazonプライム会員」に登録すれば、翌日に購入した商品が届くお急ぎ便・お届け日時指定便の指定ができるので、荷物をなるべく早く受け取りたい人にオススメ！

無料体験期間中もAmazonプライムビデオや1億曲以上聞き放題のAmazon Musicなど、すべてのプライム会員特典がセットになっています！

　　30日間の無料体験はこちら！　　

うめ

30日間以内に解約すれば費用は発生しません！

コード
実行後

コード

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