■フォルダ内の任意のファイルの名前を全て取得
Sub getAllFileName()
Dim fName As String
'.xlsmで終わるファイルを検索(返り値はファイル名のみ。パスは含まない)
fName = Dir("C:\Users\AAAAA\BBBBBB\*.xlsm")
Do While (fName <> "")
Debug.Print fName
'（注）Dir()にすると、最初の設定と同じ条件で検索(全て見つけた後は""を返す)
fName = Dir()
Loop
End Sub
