即効テクニック |
サンプルマクロでは、[ファイルを開く]ダイアログボックスの機能を表す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 MsgBox "このフォルダにExcelファイルはありません。" End If End With End Sub
Executeメソッドは、指定したファイルの検索を開始します。