以下是引用amulee在2010-5-27 10:36:00的发言:汗。。。你这个方法有问题的。正确的应该是我的那段代码。 If Dir = "" Then,这里执行了一次Dir进行判断,到后面Sheet1.Range("b" & i) = Dir 又进行了一次Dir,两次结果其实是不一样的....这样你就会跳过某些文件名。 正确的做法应该是设定一个临时变量Temp,来记录Dir结果,要注意每次循环仅能执行一次Dir。 阿木说的对,这才注意到我的错误,会漏掉第2,4,6,8 ....个文件。 楼主得用4楼的方法,请版主修改最佳,不然会误导大家的[em04] |