エクセルVBA 一覧にあるブックを順に印刷するには

質問

こんばんは。ブック名の一覧の中から指定したものを順に印刷をしていく方法を教えてください。

D10から下にブック名が書いてあります。
その横(C列)に“印刷”と入力してあるブックのシートすべてを順に印刷をしたいと思っています。
ただし、シート名に「保存」という名前を含んだものについては印刷対象から除きたいというわがままなものなのです。
ブックはすべてマクロ実行のファイルと同じフォルダの中にあります。
これ、可能でしょうか？よろしくお願いします。

回答No.2

ASIMOV · ベストアンサー

＞シート名に“保存”が含まれるブックのシートは印刷しないというものなのです

すいません、早とちりでした（最近多い．．．(^_^;)

改良版です
ちょっと、無理やりな所は有りますが、とりあえず動くようなので、アップして見ます
作業列は不要です
----------------------------------
Sub sampl03()
　　l = 10
　　Do While Cells(l, "D") <> ""
　　　　If Cells(l, "C") = "印刷" Then
　　　　　　Workbooks.Open Filename:=Cells(l, "D")
　　　　　　sh = 1: sn = "": ts = ""
　　　　　　Do
　　　　　　　　On Error Resume Next
　　　　　　　　sn = Sheets(sh).Name
　　　　　　　　On Error GoTo 0
　　　　　　　　If sn = "" Then
　　　　　　　　　　Exit Do
　　　　　　　　End If
　　　　　　　　On Error Resume Next
　　　　　　　　ts = Application.WorksheetFunction.Search("保存", sn)
　　　　　　　　On Error GoTo 0
　　　　　　　　If ts = "" Then
　　　　　　　　　　Sheets(sh).Select
　　　　　　　　　　ActiveWindow.SelectedSheets.PrintOut
'　　　　　　　　　　MsgBox "印刷 " & sn 'デバッグ用
　　　　　　　　End If
　　　　　　　　sn = "": ts = ""
　　　　　　　　sh = sh + 1
　　　　　　Loop
　　　　　　ActiveWindow.Close
　　　　End If
　　　　l = l + 1
　　Loop
End Sub

お礼

またおつきあいありがとうございます。すごいです。うまくいきました。こうやって書けるようになりたいです。ありがとうございました。

回答No.1

ASIMOV

まず、作業列を用意します（E列とします）

E10 = AND(C10="印刷",ISERROR(SEARCH("保存",D10)))

とし、下にコピーします
そうすると、Ｃ列に「印刷」と入ってて、ファイル名に「保存」が含まれてないものが、「TRUE」と表示され、それ以外は「FALSE」と表示されたと思います

ＶＢＡはこのようになります
------------------------------
Sub sampl03()
　　l = 10
　　Do While Cells(l, "D") <> ""
　　　　If Cells(l, "E") = True Then
　　　　　　Workbooks.Open Filename:=Cells(l, "D")
　　　　　　ActiveWindow.SelectedSheets.PrintOut
　　　　　　ActiveWindow.Close
　　　　End If
　　　　l = l + 1
　　Loop
End Sub
--------------------------
終了は、D列のセルに何も入っていない事で、判定していますので
D10以降には、ファイル名以外は入れないようにしてください

お礼

ASIMOVさん、こんばんは。アイデアですね。こうすることはぜんぜん思いもつきませんでした。説明不足で申し訳ございませんが、今回したかったのは、シート名に“保存”が含まれるブックのシートは印刷しないというものなのです。
たとえば、「７月売上」というブックにシートが２つあり、
一方が、「７月明細」
もう一方が「７月保存」
だとしたら、「７月明細」は印刷して、「７月保存」のシートは印刷しないというものです。
考えれば、無理なのかもしれないと思っています。ブック名しかＤ列になく、シート名はないので・・・。