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

byhyxb · 发表于 2015-2-20 21:34

谢谢香川老师分享! 遍历文件夹常用到，收藏慢慢消化学习......

wheat304 · 发表于 2015-2-21 12:15

香川群子发表于 2015-2-4 09:14
首先要介绍，在VBA代码运行以后，调用【目标文件夹】的方法：

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

$XYPFNM}TEC$$_{(EY426X)2.png$
如果文件夹已打开的话，可以复制地址栏的路径，不用一层层打开

Application.FileDialog(msoFileDialogOpen)实际工件中，选择文件可能意义更大点吧

CreateObject("wscript.shell").Run "cmd /c dir /s/b/a-d/on """ & myPath & "\*.xls*"">""" & myPath & "\myxls.txt""", 0, 1
Open myPath & "\myxls.txt" For Input As #1
arr = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
Close #1
Kill myPath & "\myxls.txt"

复制代码

Dos遍历的方法论坛早有了，算不上什么特色吧

slywtj123 · 发表于 2015-2-21 15:32

谢谢分享！

liucqa · 发表于 2015-2-21 23:12

小花鹿发表于 2015-2-9 11:27
选择磁盘根目录时会出现下面的错误，什么原因？

大部分的遍历文件夹的代码都会有这个缺陷：当文件夹权限不足，或者文件夹和文件损坏的时候，代码就会报错

所以，想想写一个好使的遍历代码，需要学会处理各种错误，这不是业余程序员能够轻易做到的

autocadr41 · 发表于 2015-2-21 23:25

收藏，学习，谢谢

ningjiabing · 发表于 2015-2-22 21:15

谢谢香川老师分享! 非常有用，终于不用再看别的帖子了。赞一个。

大海很宽 · 发表于 2015-2-22 21:37

这是好贴，留个脚印。

dmluoluo · 发表于 2015-2-27 17:01

win2009 发表于 2015-2-5 19:32
补一个方法

如何列出文件夹及其所有子文件夹中的文件？

太深奥了，看不懂啊！大仙！

ahh0511 · 发表于 2015-2-27 23:34

谢谢群子老师无私奉献，收藏了，慢慢学习！！

yaphet_41 · 发表于 2015-3-4 14:01

香川群子发表于 2015-2-4 09:32
接下来，直接介绍当前流行的、高大上的FSO方法。

由简到繁地介绍：

香川老师，我是VBA自学小菜一名，请教一个问题。这段代码中For Each f In的 "f"可以理解为一个工作簿吗？如果我想调用 "f" 中指定的某个SHEET中的数据，代码如何编写呢？请香川老师不吝赐教，感激不尽！

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

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