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

Question

用vba如何查找文件夹下的所有excel文件
现在我想做个按钮来查询当前excel所在文件夹下的所有excel文件，一点按钮就弹出对话提示：“当前文件夹下包涵的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文档了