搜索文件夹下具有某一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