Sub フォルダ内のすべてのファイルを開く()

    対象フォルダ = "C:\test\"
    
    開くファイル = Dir(対象フォルダ & "*.xlsm") '*は任意の値意味
    
    Do
    
        Workbooks.Open 対象フォルダ & 開くファイル
        
        開くファイル = Dir() '次のファイルを取得
    
    Loop While 開くファイル <> "" '開くファイルが空でない限りLoop継続する

End Sub