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

风过天际 · 发表于 2021-8-17 18:47

我是一个都看不懂啊，这VBA应该怎么学呢

antique_star · 发表于 2021-9-3 19:55

尊敬的香川老师：
收藏了这个贴，只能在这里求助啦。

一个最新遇到的问题，
用Set ResBook = GetObject(OutPath & "\" & ResFiles)打开目标隐性工作簿，
之前全部都是读取数据、修改数据，没遇到过什么难处。

最近需要处理，当前工作簿的工作表整体复制添加进目标隐性工作簿，
如果用OPEN来处理，当然啥问题也没有。
但出于特殊原因，希望目标文件是隐性的，
这样用thisworkbook.sheets("XXX").copy After:=ResBook.sheets("YYYY")
运行不通过。

麻烦您给解惑一下，能实现吗？

yangchao138 · 发表于 2021-9-21 11:47

dengchang · 发表于 2021-9-23 14:10

学习到了

jave000 · 发表于 2021-9-29 09:24

楼主你好，我需要遍历某个目录下的所有子文件夹，包括子文件夹的所有下级的子文件夹，然后把带有某个关键字的文件夹找出来，并生成其绝对路径，不再继续遍历其下级的子文件夹。
事情的本质是做项目时，将各个项目的output文件夹路径做出来，然后我再进行公式链接。
我希望使用按钮来实现，当我需要刷新时，按一下按钮即可。因为项目在逐渐增加。
我看你的代码好像是可以改的，还在尝试。
请问遍历是否有相关代码解释的纯新手指导书？

jave000 · 发表于 2021-9-29 09:42

另外请问mypath怎么定义成一个固定路径？

295672500 · 发表于 2022-1-3 19:19

感谢楼主分享，看了这个帖子，我受益匪浅

295672500 · 发表于 2022-1-3 19:49

If Right(myPath, 1) <> "" Then myPath = myPath & ""
请教哈楼主这一句是不是没什么用啊
把这一句屏蔽了，选择C盘也似乎没有问题，请楼主赐教！

VBA小萝卜 · 发表于 2022-1-4 22:58

站个坑，以后学习

沈志辉 · 发表于 2022-1-7 15:42

香川群子发表于 2015-2-4 13:12
FSO 递归方法实现各种指定搜寻的完整代码：呵呵。这样应该很好了。

香川老师，这里第二参数输入-2，是搜寻的文件夹，但是如果再指定第三参数，还是会搜寻文件，不是应该选择文件夹，就搜寻包含第三参数的文件夹名字吗

		自动登录	找回密码
密码			免费注册

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

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