フォルダ内の一覧作成(vbaツール)

エクセルで事務を楽にするプログラマーmoimoiです。

　一括で処理をしたいとき、フォルダの中にいくつファイルが入っているか、タイトルがどうなっているか、または何が入っているかデータが欲しくなる時がありませんか？

　今回はフォルダ📁に入っているデータをエクセルに一覧で記載してくれるコードをご紹介します。

【コード】

Sub フォルダ名()
Dim strPath As String
Dim strFlName As String
Dim intR As Integer

strPath = Range("B1") & "\"
intR = 3
Range(Cells(3, 1), Cells(1048576, 1)).ClearContents

strFlName = Dir(strPath & "*", vbDirectory)
Do While strFlName <> ""
    If Replace(strFlName, ".", "") <> "" Then
        Cells(intR, 1) = strFlName
        intR = intR + 1
    End If
    strFlName = Dir
Loop
End Sub

【使い方】

　シートのB1セルに一覧を出したいファイルパスを貼り付けて、実行するとシートのA3以降に一覧が書き出されます。

　ファイルパスのコピーの仕方は以前紹介した記事の説明を参考にしてください。

【ダウンロード】

　前準備なしですぐ使いたい方はテンプレートを付けていますのでご購入ください。おまけとして一覧削除機能付きです。
※開いたら上部に出るコンテンツの有効化をクリックしてご利用ください。