如何用VBA遍历指定文件夹内的所有文件

用顷让dir函数汪乎拦加上循环即可。比如将D:\ABC文件夹内的所有文件显示到A列，代码如下：

Sub 遍历所有文件()

Dim Fn$, N%

Fn = Dir("D:\ABC\*.*")

While Fn <> ""

 困胡  N = N + 1

   Range("A" & N) = Fn

   Fn = Dir

Wend

End Sub

你这个问题可以分解成一下几个步骤（问题）；

1，如何遍历（获得该文件夹里的所有子文件夹名称）

2，每获得一个子文件夹名称，分离出其左边三位字符串。

3，把获得的三位字野滚符串，转换成数字，不断地与已经获得的数字比较，得到并保存最大值。

4，遍历完毕；用该 最大雹凳值+1，作为新的字文件夹名颂肆余的左三位。

遍烂芹历 *** 作，一般运用于提取和写入等的 *** 作，其基本原理和代码都一样，

遍历的方法也有很多种，以团游下我提供一种方法open法，除去红框以内

的代码基塌历销本都是遍历的基础代码，在这个基础上可以做根据实际需要的添加修改

---