フォルダ内のエクセルの指定したシートから後ろを連続印刷するマクロ


マクロと同じフォルダのエクセルブックを全て開いて

指定したシートから、連続印刷するマクロ

例えば、全てのファイルの冒頭に記入例がついてるけど

記入例は印刷しなくて良くて

記入例以降のシートを連続印刷したいとき用のマクロ。
今回は例として黄色マーカーのシートだけを印刷する場合。

コード

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番目のシートから印刷するマクロ。
印刷を開始したいシートが何番目かに従って、コードを編集すること。