说明（2017.3.22）：
1.
1 '遍历指定文件夹里的文件 2 '遍历指定文件夹，返回第一层文件（不含文件夹） 3 Public Sub test1() 4 Dim k% 5 Dim filename$ 6 Dim path$ 7 path = ThisWorkbook.path 8 ' 返回带指定扩展名的文件名。如果超过一个 *.* 文件存在， 9 ' 函数将返回按条件第一个找到的文件名。 10 ' 若第二次调用 Dir 函数，但不带任何参数，则函数将返回同一目录下的下一个 *.* 文件 11 filename = Dir(path & "\*.*") 12 ' Range("a1:a10") = "" 13 Do Until filename = "" 14 k = k + 1 15 ' Cells(k, 1) = filename 16 Debug.Print (filename) 17 filename = Dir 18 Loop 19 Debug.Print ("完成") 20 End Sub 21 '遍历指定文件夹，返回第一层文件夹 22 Public Sub test2() 23 Dim k%, path$, filename$ 24 path = ThisWorkbook.path & "\2\" 25 ' dir第二个参数vbDirectory 26 filename = Dir(path, vbDirectory) 27 Do Until filename = "" 28 If Not filename Like "*.*" Then 29 ' k = k + 1 30 ' Cells(k, 1) = filename 31 Debug.Print (filename) 32 End If 33 filename = Dir 34 Loop 35 End Sub
