マクロと同じフォルダのエクセルブックを全て開いて
指定したシートから、連続印刷するマクロ
例えば、全てのファイルの冒頭に記入例がついてるけど
記入例は印刷しなくて良くて
記入例以降のシートを連続印刷したいとき用のマクロ。
今回は例として黄色マーカーのシートだけを印刷する場合。
コード
Sub 一部シート印刷() Dim Path As String Dim FileName As String Dim WB As Workbook Dim i As Long 'マクロエクセルが保存されているフォルダのパスを取得 Path = ThisWorkbook.Path & "\" 'フォルダの中で拡張子がxlsxのファイルを取得 FileName = Dir(Path & "*.xlsx") '繰り返し処理 Do While FileName <> "" 'フォルダ内のエクセルを開いて変数に設定 Set WB = Workbooks.Open(Path & FileName) '3番目のシートから最後のシートまで繰り返し処理 For i = 3 To WB.Sheets.Count '印刷 WB.Sheets(i).PrintOut ' 繰り返し Next i 'ファイルを閉じる WB.Close 'ファイルを再取得 FileName = Dir '繰り返し Loop MsgBox "印刷完了" End Sub
注意点
上記は3番目のシートから印刷するマクロ。
印刷を開始したいシートが何番目かに従って、コードを編集すること。