Question

用vba如何查找文件夹下的所有excel文件

Answer 1

用FileSearch功能，给个例子，自己研究一下：
Sub
test()
With
Application.FileSearch
'寻找的目录是当前工作薄所在的目录
.LookIn
=
ThisWorkbook.Path
'只寻找文件,不寻找下级目录
.SearchSubFolders
=
False
'要找的文件是XLS文件
.FileType
=
msoFileTypeExcelWorkbooks
'寻找
.NewSearch
'如果找到文件，.execute()将大于0
'找到的文件总数是.foundFilescount
'以下是把找到的文件名称全部显示在表格中
If
.Execute()
>
0
Then
For
i
=
1
To
.FoundFiles.Count
Cells(i,
1)
=
.FoundFiles(i)
Next
End
If
End
With
End
Sub

Answer 2

何必这么麻烦呢，你用文件——另存为，就可以直接查看当前excel文档所在文件夹下的所有excel文档了