用vba遍历文件夹和子文件夹中的所有文件
更新时间:2023-09-25 16:20:01 阅读量: 综合文库 文档下载
在VBA遍历文件夹和子文件夹中所有文件,常用两种方法,一种是使用VBA的filesercth对象,另外一种是使用FileSystemObject(windows文件管理工具)和递归方法。兰色对代码进行了注解,希望对大家有所帮助 第二种方法:引用FileSystemObject对象
注意:要使用FileSystemObject对象,需要首先引用一下,具体方法,VBE--工具--引用--找到miscrosoft scription runtime项目并选中 代码及注释:
Dim ArrFiles(1 To 10000) '创建一个数组空间,用来存放文件名称 Dim cntFiles% '文件个数
Public Sub ListAllFiles()
Dim strPath$ '声明文件路径
Dim i%
'Set fso = CreateObject(\ 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(\
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
正在阅读:
用vba遍历文件夹和子文件夹中的所有文件09-25
《结构力学》教学大纲05-14
枞阳县2014年教师节拟表彰对象公示11-13
(完整word版)2022国际商务与国际营销自考复习资料.docx04-16
09届高三地理地球与地图专题练习05-15
科学技术是第一生产力09-28
扬州大学博士学位论文要求04-24
自觉自在04-27
五菱汽车故障码大全08-27
- 计算机试题
- 【2012天津卷高考满分作文】鱼心人不知
- 教育心理学历年真题及答案--浙江教师资格考试
- 20180327-第六届“中金所杯”全国大学生金融知识大赛参考题库
- 洪林兴达煤矿2018年度水情水害预测预报
- 基本要道讲义
- 机电设备安装试运行异常现象分析与对策
- 《有机化学》复习资料-李月明
- 非常可乐非常MC2--非常可乐广告策划提案 - 图文
- 2011中考数学真题解析4 - 科学记数法(含答案)
- 企业人力资源管理师三级07- 09年真题及答案
- 基于单片机的光控自动窗帘控制系统设计说明书1 - 图文
- 20160802神华九江输煤皮带机安装方案001
- (共53套)新人教版一生物必修2(全册)教案汇总 word打印版
- 2014行政管理学总复习
- 中国银监会关于加强地方政府融资平台贷款风险监管的指导意见
- 民宿酒店核心竞争与研究
- 游园活动谜语大全2012
- 河南省天一大联考2016届高三英语5月阶段性测试试题(六)(A卷)
- 小型超市管理系统毕业论文详细设计4
- 文件夹
- 遍历
- 文件
- 所有
- vba
- 让学困生走出“困境”的点滴体会
- 2015年山东省潍坊市中考物理试卷及答案
- 加快农村小城镇建设
- 无机结合料稳定材料作业指导书
- (优选)2019年高中数学第二章参数方程三直线的参数方程优化练习新人教A版选修4-4
- 农村小学有关交通安全存在的问题调查报告
- 童心是小鸟说课稿
- 丹桂街道2011年度工作亮点和2012年工作要点
- 高一政治期末考试试卷(2014下)
- CA锁办理指南
- 个人资金归集操作规程
- 《建设工程监理规范》GBT50319-2013用表
- SPSS应用试题A(1)
- 校产bs版使用说明书-学校用户
- 1.3反比例函数的应用同步练习6
- 浙教版科学八年级上册练习:第4章自测题
- 曼昆第11章-第15章课后习题答案 - 图文
- 2019年部门年终工作总结范本
- 软件测试概述
- 处女十八岁应做妇科检查 体检注意五大重点(健康前行,医路护航)