特定のシート名を除外

Question

Excelファイルを印刷するマクロで、
ブックで指定してる場合で、特定のExcelのシート名「Aシート」、「Bシート」を除きたいのですが指定したシート名だけを複数印刷から除外することは可能でしょうか

Private Sub btn_FilePrintOut()
  Dim wb As Variant
  Dim Fn As Variant,i As Long

With Me.Listbox1
   For i = 0 To .ListCount - 1
   Set wb = Workbooks.Open(.List(i,1)&.List(i,0),)

wb.PrintOut
wb.Close

Next i

End with
End Sub

よろしくお願い致します。

Answer 1

やりかたはいくつかあると思いますが、選択したシートを印刷する方法が簡易かと思います。
https://excel-ubara.com/excelvba5/EXCELVBA205.html
上記サイトのsample4を参考にしてみてください。
他にもやり方が載っているので、上記にこだわらなくてもご自分がやりやすいのを選んでもよいです。

Comments

[Campus_]

リストボックス内の複数あるExcelをブックで印刷する設定にして特定のシート名だけ除外したいので、特定のファイルのシートを指定する方法では複数のファイルを指定できないと思いこの方法にしました。

複数のファイルの中から特定のシート名を指定して除外するにはこの方法ではできないですか？

[ttyp03]

複数ファイルを一発で印刷することはできません。
なのでブックごとにこの方法を適用すればよいと思いますがダメでしょうか？

Answer 2

wb.PrintOutを以下のように変更することで、
シート名で印刷する；しないを判断させては
どうでしょうか。

    Dim sh As Worksheets
    For Each sh In wb
    If sh.Name = "印刷しないシート名" Then
        '何もしない
    Else
        wb.sh.PrintOut
    End If