あるフォルダ内のすべての.xlsファイルを開いて印刷

質問

お世話になります。
エクセルVBAの質問です。
あるフォルダを指定して、その中のファイルを順番に開いて印刷したいと思っていますが、どのように記述したらよいのでしょうか。
下記、いろいろなところから引っ張ってきたのをつないだコードです。
すみませんが、ご教授願います。

Dim ShellApp As Object
Dim oFolder As Object
Dim targetFolderName As String
Dim Xlname As String, Dpath As String, Opn As Integer
Dim Fnd As Boolean

Set ShellApp = CreateObject("Shell.Application")
Set oFolder = ShellApp.BrowseForFolder(0, "フォルダ選択", 1)

If oFolder Is Nothing Then
Exit Sub
End If

targetFolderName = oFolder.items.Item.Path
Dpath = "targetFolderName"
Xlname = Dir(Dpath & "*.xls")
Do While Xlname <> ""
Opn = 0
Do
Fnd = False
For Each file_name In Windows
If file_name.Caption = Xlname Then
Fnd = True
Exit For
End If
Next

If Not Fnd Then
If Opn = 1 Then Exit Do Workbooks.Open Filename:=Dpath & Xlname
Opn = 1
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Loop
Xlname = Dir()
Loop

回答No.1

Wendy02 · ベストアンサー

こんにちは。

動作チェックはしていません。ざっとみただけです。

-----------
Dpath = "targetFolderName" 　←ここは、変数どうしだから、"　" を外す。
　　　　PathSeparator が、末尾に抜けているので、& "\"を加える
-----------
※　←ここの部分に、End If がないのでは？
Loop
Xlname = Dir()
-----------
コードの考え方は理解しますし、エラー処理なんかは、ちゃんとしてありますね。そうなると、もう、あまり手をつける気が起きませんね。（^^;

どなたがおつくりになったものかは分りませんので、コメント自体は差し控えますが、以下の部分だけ、なぜ、こうしたのか、取り出して試してみたけれども、

＞ ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ここは、ActiveSheet でよさそうな気がしました。仮に、画面には複数あっても、一回で通り過ぎてしまうので、複数シートは印刷は出来ないようです。

お礼

どうもありがとうございました。助かりました。解決です。またお世話になるかもしれませんが、よろしくお願いします。