[笔记1】【Vba查找文件夹下所有文档的名称，并汇总到表格，也可以按照文集格式来找】
Sub Test()
Dim i As Integer
Dim strPath As String
strPath = ThisWorkbook.Path
‘这个地方说明存放的excel必须在要查找的文件夹里面创建


With Application.FileSearch
’对象调用方法，application对象调用文件查找方法 filesearch


       .LookIn = strPath
‘寻找的路径是上面的strPath


       .SearchSubFolders = True
’这个是要问是不是要搜索子文件夹，是


       .Filename = "*.xlsx*"
‘要搜索文件的格式，如果没有格式的话就是所有文件的名称都会被提取出来


      If .Execute > 0 Then
’文件夹下面是否有文件


         For i = 1 To .FoundFiles.Count
                Range("A" & i) = .FoundFiles(i)
          Next i
       End If
End With
End Sub