当前位置：首页 > 教育 > 正文

VBA遍历所有文件夹的两种方法（filesearch和FileSystemObject）

在VBA遍历文件夹和子文件夹中所有文件，常用两种方法，一种是使用VBA的filesercth对象，另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解，希望对大家有所帮助

第一种方法：使用filesearch对象

Sub mysearch()
Dim fs, i, arr(1 To 10000)
Set fs = Application.FileSearch '设置一个搜索对象
With fs
.LookIn = ThisWorkbook.Path & "/" '设置搜索路径
.Filename = "*.xls" '要搜索文件名和类型
.SearchSubFolders = True '是否需要搜索子文件夹
If .Execute > 0 Then '如果找不到文件
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found." '显示文件找不到
For i = 1 To .FoundFiles.Count '通过循环把所有搜索到的文件存入到数组中
arr(i) = .FoundFiles(i)
Next i
Sheets(1).Range("A1").Resize(.FoundFiles.Count) = Application.Transpose(arr) ' '把数组内的路径和文件名放在单元格中
Else
MsgBox "There were no files found."
End If
End With
End Sub

第二种方法：引用FileSystemObject对象

注意：要使用FileSystemObject对象，需要首先引用一下，具体方法，VBE--工具--引用--找到miscrosoft scription runtime项目并选中

代码及注释：

Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称
Dim cntFiles% '文件个数

Public Sub ListAllFiles()

Dim strPath$ '声明文件路径
Dim i%
'Set fso = CreateObject("Scripting.FileSystemObject")
Dim fso As New FileSystemObject, fd As Folder '创建一个FileSystemObject对象和一个文件夹对象

strPath = ThisWorkbook.Path & "/" '"设置要遍历的文件夹目录
cntFiles = 0
Set fd = fso.GetFolder(strPath) '设置fd文件夹对象
SearchFiles fd '调用子程序查搜索文件
Sheets(1).Range("A1").Resize(cntFiles) = Application.Transpose(ArrFiles) '把数组内的路径和文件名放在单元格中

End Sub

Sub SearchFiles(ByVal fd As Folder)

Dim fl As File
Dim sfd As Folder
For Each fl In fd.Files '通过循环把文件逐个放在数组内
cntFiles = cntFiles + 1
ArrFiles(cntFiles) = fl.Path
Next fl

If fd.SubFolders.Count = 0 Then Exit Sub 'SubFolders返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的 Folders 集合

For Each sfd In fd.SubFolders '在 Folders 集合进行循环查找
SearchFiles sfd '使用递归方法查找下一个文件夹
Next

End Sub

你可能想看：

图解蒸气喷射式制冷原理（Steam Jet System）

1、蒸气喷射器原理，蒸气喷射式制冷是以喷射器代替压缩机，利用工质在低压下气化吸热实现制冷，2、蒸气喷射式制冷，蒸气喷射式制冷的工质可以是水，目前在空调工程中多采用以水为工质的蒸汽喷射式制冷装置，简称为...

Cell Reseach：caspase11切割gasderminD引发“细胞焦亡” - 基因编辑专区 - 生物谷

这些炎性caspase的激活能够促进细胞焦亡事件的发生，炎性caspase究竟是如何调节这些细胞事件至今仍然有待解决。该蛋白的切割能够引发细胞焦亡事件的发生。他们发现这一突变体小鼠不能够正常发生细胞焦...

这篇心得，值得所有学习mastercam编程的人一看！

5、学CAM部分还要有一定的切削知识和加工经验（包普通机床加工经验），Mastercam编程的特色是快捷、方便。可用曲线融接的方法迅速搞定，只要先将加工零件的轮廓边现、台阶线、孔、槽位线等等，2、由于...

一键下载公众号所有文章，导出文件支持PDF，HTML，Markdown，Excel，chm等格式

原理就是通过抓包抓取微信客户端的接口，用Python请求微信接口获取公众号文章链接再下载。不过charles没安装证书前获取不到https接口数据。再次抓取可以看到公众号文章接口数据了?公众号文章的接...

LPA（Limited Partnership Agreement),私募基金设立的核心文件

是用来约束全体合伙人的核心法律文件，这个文件里约束了LP和GP的权利与义务，对于有限合伙来说LPA是最核心和最基础的文件,GP充当的是私募基金管理人的角色。一般来说GP会去寻找投资机会然后去进行服务管...

Speech Level Singing 拷贝下来，练习的时候看

因为不满意美国现在的声乐教育而自创了一套练习方法，唱了六十年歌的声音还很健康。用这泡泡唇来吹音阶，初学时要带重点鼻音。练熟了再把声音调整回来：注意唱的时候带一点傻里傻气的声音，可以把声音带上头声。（狭...

win7 oem 激活方法|教你怎么oem激活win7系统－系统城

如何通过oem激活win7系统？win7 oem激活就是使用oem密钥永久激活win7系统，大部分的win7激活工具都是采用oem激活方式，自动安装oem密钥，实现永久激活win7系统，都可以oem激...

500G 史上最全的JAVA全套教学视频网盘分享 (JEECG开源社区)

1、javascript视频教程:3、马士兵hibernate视频教程:4、JAVA电子书:7、android视频教程:链接:8、photoshop基础教程视频:10、junit视频教程:11、Str...

Telesat、OneWeb及SpaceX三个全球宽带低轨卫星星座系统的技术对比

考虑到地面站的位置和数量在确定系统总吞吐量中起着重要作用。利用大型低轨卫星星座从太空提供互联网的想法重新流行起来“共有11家公司向联邦通信委员会（FCC）申请在非地球静止卫星轨道（NGSO）部署大型星...

我的二本学生(pdf epub mobi azw3)电子书

《我的二本学生》是黄灯最新的一本非虚构作品。作者从自身的教学日常写起，尤其是在接受学生求助和咨询等琐碎的职业体验中，获得了学生群体成长的第一手资料，本书稿是对这些学生成长和困惑的体认，并结合作者自身的...

circbase数据库环状RNA序列获取方法 | 环状RNA社区

小编邀请技术部的刘建宁老师继续为大家实例讲解circRNA的引物设计。我们以环状RNA数据库circbase（http:为小伙伴详细介绍从circRNA序列获取到引物设计的全过程。在Search上方的...

Excel VBA解读（53）：高级筛选——AdvancedFilter方法

我们先使用Excel的录制宏工具录制一段进行高级筛选操作的代码，先在单元格G1中输入标题，选择单元格区域A1”则可以选择整个数据区域“就用不着每次都要选择不同的列表区域了”表明将数据复制到由参数Cop...

短暂性全面遗忘（Transient Global Amnesia，TGA）

特征性表现为突然发作的顺行性遗忘，血管性（静脉血流异常或局灶动脉缺血）、癫痫性、偏头痛相关性。静脉假说认为TGA是由于颞叶引流静脉血流异常引起。引起颞叶供血动脉反应性收缩，从而可以解释部分TGA患者D...

电脑用久了C盘爆满？这3个文件夹放心删，瞬间多出10个G

Windows没有提供给我们关闭更新提示的按钮，想更新再更新那么简单直接的方法吗，01禁用配置自动更新。点击【计算机配置】→【管理模板】→【Windows组件】→【Windows更新】→【配置自动更新...

文档实行文件夹管理简洁便利

文件夹，它是电脑中存贮文件的工具，在电脑中创建文件夹，自已的文件均可分类存放里面，夲文介绍创建文件夹和向文件夹装入文件的简明实用操作法。创建文件夹的操作步骤，我的文档，图标。我的文档即被打开，单击我的...

如何清理微信文件夹占用的巨大空间

在聊天的过程中收发很多文件、视频、图片，再进入个人数据文件夹，可以看到一些文件夹，可以直接查看视频内容的，如何找到原来的聊天图片，可以轻松恢复任意电脑找到的微信聊天图片”微信的数据文件夹一般放在，里面...

关于百度文字识别怎么找到API_Key和Secret_Key

有些识别文字的软件需要填写这两个key才能识别文字。下面是介绍如何找到这两个key的方法：使用百度文字识别，必须先有一个百度账号，然后进入百度智能云平台，登录账号后，点击立即使用按钮。点击左边的应用列...

成人still病的临床特点是什么 介绍成人still氏病的主要症状

成人still氏病的发生与免疫紊乱、感染、遗传、精神因素、变态反应等有关，成人still氏病的症状主要有发热、皮疹、关节肿痛，该病是介于风湿热和类风湿性关节炎之间的一种变应性疾病，成人Still病最早...

互助问答第5期：Stata中系统GMM模型的稳健性检验和Stata命令等

Stata中系统GMM模型的稳健性检验和Stata命令 答：一种是计量数据的稳健性检验。前者通常适用于所使用的计量方法比较新颖的研究，可用GMM进行稳健性检验（因为GMM不需要满足经典计量假设）。生成...

法国RELLECIGA联合世界著名汽车品牌赞助欧洲FS选美

图2：众佳丽选手身穿法国RELLECIGA比基尼展示婀娜多姿的性感曲线。RELLECIGA比基尼，著名Felvidek Szepa选美大赛在欧洲如期举行，众佳丽选手身穿法国RELLECIGA比基尼展示...

[优雅]2014Mori Lee by Madeline Gardner婚纱系列 (25 图)

阿朗松礼服

想要清除C盘垃圾但是又怕删除系统文件怎么办？教你两种最实用的方法

打开此电脑，打开C盘。在C盘中依次找到下面的这几个文件并进行删除即可：【1】Temp 里面存放的全部是临时文件，需要定时清理。【2】Prefetch 这里面寸法的全部是电脑访问过的痕迹。【3】Down...

水彩之光：美国水彩艺术家 Iain Stewart 绘画作品

来自美国水彩艺术家 Iain Stewart，是一位擅长捕捉光的水彩画家，从第一笔开始，对光感的表达就一直存在，这种表达方式并不是那种如实的表现，而是一种视觉的记忆感悟...美国水彩艺术家 Iain ...

什么是真正的STEAM教育？

STEAM是一种重实践的超学科教育概念。所以单一技能的运用已经无法支撑未来人才的发展，从而探索出STEAM教育理念。鼓励孩子在科学、技术、工程和数学领域的发展和提高，帮助孩子们学习数学、科学的教育科技...

第6讲 Vision Pro视觉工具 CogFindCircleTool

找圆工具与卡尺工具算是用得比较多的工具了。今天介绍的是康耐视的找圆工具CogFindCircleTool。CogFindCircleTool工具用来查找图像中的圆,首先用卡尺工具定位圆的边界点,然后将...

石灰岩(Limestone)知识

有时含有白云石、粘土矿物和碎屑矿物，石灰岩主要是在浅海的环境下形成的，加上来自陆地的动植物腐物残渣与泥沙一起在河床或海床上沉积压实后经地质变化形成：石灰岩的成分主要为方解石、伴有白云石、菱镁矿和其他碳...

文件对象文件夹'路径

上一篇
网贷进校园，应该怎么管？

下一篇
在意别人的存在

有话要说...

最新文章

取消
扫码支持 支付码