首页 > 编程语言 > 详细

VBA学习笔记(4)--文件夹和文件遍历一层

时间:2019-06-08 01:07:16      阅读:137      评论:0      收藏:0      [点我收藏+]

说明(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
技术分享图片

VBA学习笔记(4)--文件夹和文件遍历一层

原文:https://www.cnblogs.com/medik/p/10989730.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!