Sub Test()
   With Application.FileSearch
        .LookIn = "c:\my documents"
       '検索するフォルダのパス

        .FileType = msoFileTypeExcelWorkbooks
       'エクセルファイル

        .Execute

    If .Execute() > 0 Then
      MsgBox .FoundFiles.Count & _
            " 個のファイルが見つかりました。"
      For i = 1 To .FoundFiles.Count

           Workbooks.Open .FoundFiles(i)
           'ファイルを開く

      Next i
   Else
       MsgBox "検索条件を満たすファイルはありません。"
   End If
  End With
End Sub