Sub ファイル名を取得回収する()
ファイル名 = Dir(ThisWorkbook.Path & "\" & "*.*")
Do While ファイル名 <> "" 'ファイルがなくなるまで継続
行数 = 行数 + 1 '次の行へ
Cells(行数, "A") = ファイル名 'ファイル名をA列に書き出し
ファイル名 = Dir() '次のファイルを取得
Loop
End Sub
Sub ファイル名を一個取得回収する()
ファイル名 = Dir(ThisWorkbook.Path & "\" & "*.*")
Range("A1") = ファイル名
End Sub