サンプルマクロでは、[ファイルを開く]ダイアログボックスの機能を表す
FileSearchオブジェクトのFileSearchプロパティを使用して、指定されたフォルダ
で見つかったExcelブックの全てのシートを印刷します。

Sub Sample()

  With Application.FileSearch
      .LookIn = "C:\"
      .Filename = "*.xls"

      If .Execute > 0 Then
          For i = 1 To .FoundFiles.Count
             Workbooks.Open Filename:=.FoundFiles(i)
                For Each st In Worksheets
                     st.Select
                     st.PrintOut
                Next st
                ActiveWorkbook.Close False
          Next i
          MsgBox "全シートの印刷が終わりました。"
      Else
          MsgBox "このフォルダにExcelファイルはありません。"
      End If
  End With
  
End Sub

　Executeメソッドは、指定したファイルの検索を開始します。