HOME > 即効テクニック > Excel VBA > ファイル操作関連のテクニック > フォルダー内のExcelブックを全て印刷する

即効テクニック

ファイル操作関連のテクニック

フォルダー内のExcelブックを全て印刷する

(Excel 97)
サンプルマクロでは、[ファイルを開く]ダイアログボックスの機能を表す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メソッドは、指定したファイルの検索を開始します。