搜索文件夹下具有某一sheet名的Excel文件

直接上代码了。

 1  sub  fileFind()
 2     ' filepath to be found
 3    folder = " D:/PathofFindFile "
 4     ' sheet name to be found
 5    findSheetName = " FindSheetName "
 6     With  Application.FileSearch
 7      .NewSearch
 8      .LookIn = folder
 9      .FileType = msoFileTypeExcelWorkbooks
10       If  .Execute > 1   Then
11         For  i = 1   to  .FoundFiles.Count
12         ' open the excel file
13         Set  eachBook = Workbooks.Open(.FoundFiles(i))
14           For  j = 1   To  eachBook.Worksheets.Count
15             If   UCase (eachBook.Worksheets(j).Name) = findSheetName
16             ' process after being found
17             End   If
18           Next  j
19        eachBook.Close
20         Next  i
21       End   If
22     End   With     
23  End sub
24