本記事で得られる知識
指定のフォルダにある指定した拡張子のファイル名の一覧を表示する方法について解説です。
記事の前提
Excel VBAを理解している方向けです。
記事の信頼性
ネット通販業者を約13年運営しています。
今回の学習のポイント
以下の式で表示できます。
Dim buf As String, DirPath as string
buf = Dir(DirPath & “/*.xls”)
Do While buf <> “”
i = i + 1
ThisWorkbook.Worksheets(1).cells(i,1).value = buf
buf = Dir()
Loop
1.DirPath
ここに取得するフォルダを指定します。
解説と注意点
右端には「/」がない前提にしてますので、「/」を含んで指定する場合は、上記の「”/*.xls”」を「”*.xls”」に変更してください。
2.ThisWorkbook.Worksheets(1).cells(i,1).value
bufが取得したファイル名になります。
応用はいくらでも
i = i + 1と、Loopの間に自由に式を追加して活用ください。
