[笔记1】【Vba查找文件夹下所有文档的名称，并汇总到表格，也可以按照文集格式来找】

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

[笔记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

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：VBA 文件夹 Application filename workbook 文件夹

so great

yangm777 发表于 2015-3-31 23:52
so great

确实挺好用的，如果用到的时候返回这个帖子再看一下！