＜コード＞ Sub ファイル一覧() Path = Cells(1, 1) & "\" Filename = Dir(Path & "*", vbNormal) Cells(3, 1).Select ' A3以降に検索結果貼り付け ActiveCell = Filename 'ファイル内のbookがなくなるまで Do While Filename <> "" ActiveCell.Offset(1, 0)…