Sub 指定フォルダーのExcelファイルを全て開く() Const DIR_PATH = "C:\tmp" Dim fl_name As String fl_name = Dir(DIR_PATH & "\*.xls*") If fl_name = "" Then MsgBox "Excelファイルがありません。" Exit Sub End If Do Workbooks.Open Filename:=DIR_PATH & "\" & fl_name fl_name = Dir Loop Until fl_name = "" End Sub サンプルマクロの解説 Dir関数を使って、定数・DIR_PATHで指定されたフォルダー「C:\tmp」内の、拡張子に「xls」という文字列が含まれるファイルの、ファイル名を取得して変数・fl_nameに格納します。 fl_name = Dir(DIR