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

Question

我已经打开一个EXCEL文件，需要执行VBA后，弹出对话框，输入查询条件，然后在指定目录文件夹下查找，查找完成后自动复制所有内容作为一个新表到当前文件中。
是不是查找指定文件夹下指定名称EXCEL工作薄
是的。谢谢您的回答。
运行后报警：对象不支持该动作。
Set fs = Application.FileSearch显示黄色
您能再帮助解释一下吗？

Answer 1

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

是不是查找指定文件夹下指定名称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本回答被网友采纳