如何当前EXCEL用VBA查找指定文件夹下指定名称EXCEL

如何当前EXCEL用VBA查找指定文件夹下指定名称EXCEL

题目和内容 有点糊涂，不太明白你的意思。

是不是查找指定文件夹下指定名称EXCEL工作薄，然后在进行后续处理

下面例子可以查找指定目录下的所有excel文件，供参考

Dim iTemp1, iTemp2 As Integer

Dim sTemp1 As String

Dim totalFiles As Integer

sTemp = "D:\doc" ' 指定目录

Set FS = Application.FileSearch

With FS
.LookIn = sTemp
.Filename = "*.XLS"
.MatchAllWordForms = False

If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
totalFiles = .FoundFiles.Count
For iTemp1 = 1 To totalFiles
sTemp1 = .FoundFiles(iTemp1)
iTemp2 = InStrRev(sTemp1, "\")
If iTemp2 <> 0 Then sTemp1 = Mid(sTemp1, iTemp2 + 1)

s = s & sTemp1
s = s & vbCrLf
Next iTemp1

MsgBox s '显示结果

End If
End With