ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 香川群子

[分享] 跟我学 【喜迎2015立春】遍历文件夹(含子文件夹)方法 ABC

    [复制链接]

TA的精华主题

TA的得分主题

发表于 2019-9-26 21:36 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖已被收录到知识树中,索引项:文件操作和FSO
收藏,学习,有用。谢谢。

TA的精华主题

TA的得分主题

发表于 2019-10-8 11:46 | 显示全部楼层
如何能关闭DOS命令的黑框,运用FOR循环查找文件位置,一直不断地跳黑框。

TA的精华主题

TA的得分主题

发表于 2019-10-8 16:36 | 显示全部楼层
香川群子 发表于 2015-2-4 12:52
最后,作为本帖的特色,介绍使用VBA语句直接调用Dos中Dir命令来搜寻文件名的方法:呵呵,Dos命令不仅简洁, ...

如何能关闭DOS命令的黑框,运用FOR循环查找文件位置,一直不断地跳黑框。

TA的精华主题

TA的得分主题

发表于 2019-10-10 16:31 | 显示全部楼层
香川群子 发表于 2015-2-4 10:10
由于很多初学者不太能理解递归算法的过程而产生畏难、抵触情绪,
所以下面避开递归,而采用字典记录中间结 ...

这个思路很巧妙!学习了!!

TA的精华主题

TA的得分主题

发表于 2019-10-11 16:39 | 显示全部楼层
香川群子 发表于 2015-2-4 11:00
接下来,马不停蹄,向大家介绍标准的Dir搜寻文件、子文件夹的方法。呵呵。

第5行代码f Right(myPath, 1) <> "" Then myPath = myPath & ""
应该是f Right(myPath, 1) <> "\" Then myPath = myPath & "\"论坛在上传时似乎会过滤掉这个字符!!奇怪。。

TA的精华主题

TA的得分主题

发表于 2019-10-22 16:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-11-1 19:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
希望本帖成为【遍历子文件夹】方法的终结技术帖。

厉害啊!!!

TA的精华主题

TA的得分主题

发表于 2019-11-1 22:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册


收藏,学习,谢谢

TA的精华主题

TA的得分主题

发表于 2019-11-28 21:12 | 显示全部楼层
香川群子 发表于 2015-2-4 09:14
首先要介绍,在VBA代码运行以后,调用【目标文件夹】的方法:

① 微软Excel VBA 默认选择文件夹的Dialog ...

    If Right(myPath, 1) <> "" Then myPath = myPath & ""
请教香侠,添加 “”的作用是什么,我用这个代码在CD盘的文件与此外的其它盘遍历未发现差异。
我初学VBA,请您多多指导

TA的精华主题

TA的得分主题

发表于 2019-12-18 01:47 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-15 10:33 , Processed in 0.030564 second(s), 5 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表