サンプルマクロでは、[ファイルを開く]ダイアログボックスの機能を表すFileSearchオブジェクトのFileSearchプロパティを使用して、指定されたフォルダで見つかったExcelブックの全てのシートを印刷します。 Sub Sample() With Application.FileSearch .LookIn = "C:\" .Filename = "*.xls" If .Execute > 0 Then For i = 1 To .FoundFiles.Count Workbooks.Open Filename:=.FoundFiles(i) For Each st In Worksheets st.Select st.PrintOut Next st ActiveWorkbook.Close False Next i MsgBox "全シートの印刷が終わりました。" Else M