ExcelVBAで指定したフォルダ直下にあるファイルの一覧を取得する方法をご紹介したいと思います。
ソースコード
サンプルのソースコードになります。
実行すると「C:\workspace\ExcelVBA\Sample\」フォルダ直下にあるファイルの一覧を取得します。
出力結果は、シート名が「Sheet1」のシートに出力されます。
Public Sub GetFileList()
Dim buf As String, row As Long
buf = Dir("C:\workspace\ExcelVBA\Sample\")
Do While buf <> ""
row = row + 1
Sheets("Sheet1").Cells(row, 1) = buf
buf = Dir()
Loop
End Sub
リンク
実行結果
以下がサンプルの実行結果になります。
コメント