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

香川群子

yaphet_41 发表于 2015-3-4 14:01
香川老师，我是VBA自学小菜一名，请教一个问题。这段代码中For Each f In的 "f"可以理解为一个工作簿吗？ ...

如果需要操作文件以及文件内的各个工作表Sheet，那么当然首先要打开该文件。

1. Function ListFiles(myPath$)
   
2.    Set Fso = CreateObject("Scripting.FileSystemObject")
   
3.    For Each f In Fso.GetFolder(myPath).Files
   
4.       Workbooks.Open (f) '打开文件
   
5.       For Each sh In ActiveWorkbook.Sheets '遍历该文件的所有工作表
   
6.         sh.Activate '激活工作表
   
7.         
   
8.       Next
   
9.       ActiveWorkbook.Close '关闭文件
   
10.    Next
    
11. End Function
    

复制代码

vvcoco123

又学会了一点新知识，谢谢！

zlzxtfl

谢谢，，收藏了。。。。。

songzi2000

香川的很多分享都不错，赞一个，收藏了

goldowl2011

Mark.Very good .Thanks a lot.

hehex

香川群子 发表于 2015-2-4 09:51
下面很快进入正题：

三、遍历目标文件夹内所有文件、以及所有子文件夹中的所有文件。

今天抽出时间来认真品读，发觉群子递归退出写的很妙，当递归返回的条件是不存在子目录则返回（不返回自然成了死递归）集合fld.Subfolders为空，那么集合遍历循环for each 因为找不到对象不循环，因此不会再度进行递归调用从而执行End Function 弹出栈，真是丝毫不带烟火气， 好。 如果好代码可以佐酒，当浮一大白。
另：还是不定义变量，这点俺仍然不赞同。

hehex

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

字典法也很是不错，但是以本例而言，个人认为递归遍历代码简单，思路清晰更显精妙。

香川群子

hehex 发表于 2015-3-6 13:26
今天抽出时间来认真品读，发觉群子递归退出写的很妙，当递归返回的条件是不存在子目录则返回（不返回自然 ...

呵呵，我对递归的各种返回（尤其是递归内含For循环时），
做过很认真的研究。

因此，一般都会选择最高效率的退出方式（最恰当的退出位置），
以便优化结构、节省代码，基本上也会因此而提高效率。

即使对运算效率没有提高，我也喜欢把结构弄得紧凑一点。呵呵。

香川群子

hehex 发表于 2015-3-6 13:26
今天抽出时间来认真品读，发觉群子递归退出写的很妙，当递归返回的条件是不存在子目录则返回（不返回自然 ...

事实上，先循环子文件夹内的文件，然后再循环子文件夹，也是一个高效的递归结构。

我看到过别人写的Fso递归，因为这个顺序不对（先遍历子文件夹，随后退出时才循环文件夹内文件），
所以效率就差一点。处理也繁琐多了。

呵呵。

hehex

香川群子 发表于 2015-3-6 14:31
事实上，先循环子文件夹内的文件，然后再循环子文件夹，也是一个高效的递归结构。

我看到过别人写的Fs ...

注意到了，很有趣，值得反复品读。