VBA ツリービューからファイル印刷

Question

■実現したいこと
①ツリービューを利用して親フォルダと子フォルダ複数とExcelファイル複数を表示させる方法
② ①で選択したフォルダが違うExcelファイル複数をリストボックスに表示させる方法
③ ②のリストボックス内のExcelファイルをブック全体で印刷する方法
■実現出来ること
下記のコードではツリービューを使用してませんが処理的にはファイルを選択してリストボックスに表示させ、リストボックス内のファイルを印刷することまではできますが、実現したいことのツリービューを使用した複数のフォルダからファイルを選択してリストボックスに表示させ印刷がわかりません。

Private Sub btn_FileOpen_Click()
   Dim OpenFileName As Variant, Target As Variant
   'カレントディレクトリを指定
   ChDrive "C"
   ChDir "C:\test"
   OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls?", _
                                              MultiSelect:=True)
   If IsArray(OpenFileName) Then
       With Me.BookInput
           .Clear
           'リストボックスにファイル名を表示
           For Each Target In OpenFileName
               .AddItem Dir(Target)
           Next Target
           'ファイルのあるフォルダーのパスをラベルに表示
           Me.lblPath.Caption = Replace(OpenFileName(1), .List(0, 0), "")
       End With
   Else
       MsgBox "キャンセルされました"
   End If
End Sub
Private Sub btn_FilePrint_Click()
   Dim wb As Integer
   Dim Fn As Variant, i As Long
   Application.ScreenUpdating = False
   With Me.BookInput
       For i = 0 To .ListCount - 1
           Set wb = Workbooks.Open(Me.lblPath.Caption & .List(i, 0))
           wb.PrintOut 'ブック全体を印刷
           wb.Close
       Next
   End With
End Sub
Private Sub UserForm_Initialize()
   Me.lblPath.Caption = ""
End Sub

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

Answer 1

VBA - VBAで複数のExcelファイルを印刷するマクロについて(131198)｜teratail
VBA - VBAでExcelファイルをまとめて印刷するマクロについて(131957)｜teratail
この1連の質問の流れですね。
一つの質問を解決済みにしてから、次の質問に進むようにしましょう。
また、関連する質問は上記のようにリンクを置いておくといいでしょう。

後、下記の点についての仕様を明確にしてください。

• 親フォルダーは一つで固定なのか。
• また、親フォルダーにもExcelファイルはあるのか。
• フォルダーの階層は親、子の2階層までなのか。それ以下の階層のフォルダーもあるのか。

この手の要件はどのようなUIするかが重要ということは前の質問でも回答しました。
ツリービューを検討されたのはいいのですが、他の回答者も言われているように難易度が高いし、環境依存の問題もあります。その割に使いやすいとも思えません。自分のスキル以上のものにするとメンテナンスも難しくなります。

前の回答での最初の画像のサンプルに、リストボックスを一つ追加して、

• 親フォルダーリストボックス
• 子フォルダーリストボックス
• ファイル名リストボックス
• 選択ボタン（➡ボタン）
• 選択されたファイルリストボックス

という構成のUIではどうですか。

Answer 2

①ツリービューを利用して親フォルダと子フォルダ複数とExcelファイル複数を表示させる方法

見映えに拘りたいのは解りますが、難易度が上がりますので、
身の丈にあったことをするのが得策と思います。
また、ツリービューはエクセルに標準で付いてくるものではないので、
環境によっては使えない場合がありますし、
配布する場合は著作権的に注意が必要です。
なので、使わない方が無難です。

② ①で選択したフォルダが違うExcelファイル複数をリストボックスに表示させる方法

https://teratail.com/questions/131957
こちらで書きましたが似たようなSampleを別途書いてます。
そちらの方は試してみていただけたでしょうか？

Answer 3

一度に聞きすぎです。組み込んでいくと要求も変わってくるでしょうし。
①
windowsが提供してくれるファイル選択ダイアログを利用されたほうが簡単です。
【VBA】ファイル選択ダイアログ（単一・複数ファイル）
3種類の[ファイルを開く]ダイアログボックス
エクセルVBAでFileDialogオブジェクトを使ってファイル選択ダイアログを開く
②
リストボックスにデータを登録する(1)
③
【エクセル】ブック内の全シートを印刷する方法
複数シートの印刷（PrintOut）