ディレクトリのエクセルファイルだけを読む

Dim bookName As String
bookName = Dir("指定するディレクトリ" & "\*.xls")
While bookName <> ""
' ブックを開いて処理を実行する
Wend