フォルダを指定してファイル一覧を取得するVBA

本来、１つのブックにまとまっていなければいけない売上や出金のデータをバラバラのブックで１つ１つ作っていた場合、月末に集計する時にそれを１つ１つ開き、コピー、貼り付けをします。
それではあまりにも非効率なので、そのような作業はコーヒータイムの間に仕掛けて、コーヒーが飲み終わったらその作業が終わっている、というのが理想です。
そのためには、作業するフォルダを指定して、その中のファイルの名前一覧を作ることが必要です。
そこで、そのような動作をするVBAを作ってみました。

Moduleの中にコピペしてそのまま使えます。
呼び出す書式は

SetFolder(一覧データの先頭セル,探すファイル名)

で指定します。

Call SetFolder(Worksheets(“出金シート”).Range(“A1″),”出金伝票*.xlsx”)

これで、出勤シートのセルA1に指定フォルダ、セルA2から「出金伝票なんとか.xlsx」のファイル名のファイルがどんどん書き込まれます。

全ファイルを検索するのであれば、探すファイル名は「*.*」で指定してください。

Function SetFolder(OutputCell As Range, FindFile As String)
Dim DataFolder As String
Dim i As Integer
Dim FileName As String
Application.FileDialog(msoFileDialogFolderPicker).Show
DataFolder = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
OutputCell.Value = DataFolder
FileName = Dir(DataFolder & FindFile)
Do While FileName <> “”
i = i + 1
OutputCell.Offset(i, 0).Value = FileName
FileName = Dir()
Loop
End Function