VBA中利用Dir遍历文件

江南才子

　　选择系统分类的时候竟然找不到和VBA相关的，甚至连Office相关的项也没有，是不是因为这些方面太低级了很丢人哪。

　　下面简单说一下在用VBA开发的时候如何遍历某一目录中的文件，从而对其进行处理。
　　现实应用中，常常会遇到这样的情况，某个目录下有大量的Excel数据文件，现在需要对这些文件中的数据进行批量处理。现在的问题就来了，由于每次生成的数据文件名称都不固定，所以无法在程序中直接写死。其实通过VBA内置的Dir函数可以解决这一问题。
　　Sub DirTest()
      Do
            xlsName = Dir("D:\ExcelTest\*.xls")
            If xlsName = "" Then
                     Exit Do
            End If
            Workbooks.Open Filename:="D:\ExcelTest\" & xlsName
            Workbooks(xlsName).Close savechanges:=False
            Kill "D:\ExcelTest\" & xlsName
      Loop
End Sub
　　此处是假设需要处理的数据文件全部在“D:\ExcelTest\”目录下，实际应用中可根据情况更改。以下对此过程作一些简要说明。
　　1.先插入一个过程，并且加入Do……Loop循环，从而实现对所有的文件进行处理
　　2.定义一个变量xlsName（名称可根据自己爱好随便取，但建议是好记的名称，由于VBA可以不申明，直接使用，所以我这里偷懒，把定义的语句省略掉了，默认情况下执行是没有任何问题的。如果在VBA环境中设置了强制申明，则需要添加定义变量的语句）。
　　3.通过一个If……End If来判断，取得的文件名是否是空（如果为空，则说明文件处理完毕），如果为空，则退出循环。
　　4.打开取得的文件名对应的文件
　　5.对数据进行相应处理（这里并没有写这些语句，实际使用时可根据自己的情况添加数据处理的语句）
　　6.关闭刚打开的文件
　　7.删除已经处理过数据的文件（如果这些数据还有他用，建议将其备份，在打开文件后，使用SaveAS另存为也可。
　　8.过程结束。
如何查看Dir（）函数更加详细的说明，可直接在VBA编辑器中输入Dir，右键点击Dir，然后在快捷菜单中选择“定义”，在打开的“对象浏览器”中，右键单击Dir，然后选择“帮助”，即可查看Dir的详细帮助及示例。

[办公软件] VBA中利用Dir遍历文件

相关帖子

基于云原生的私有化 PaaS 平台交付实践

Linux 命令行小技巧 – ！叹号的用处

一分钟告诉你如何鉴别二手电脑和翻新机

如何利用watch帮你重复执行命令

wps excel下拉选择项怎么设置？wps excel下拉选项怎么做？

如何利用word制做思维导图？用word怎么制作思维导图？

利用CSS禁止复制网页内容

怎么利用配置文件来管理多个 Node.js 进程

uni-app 利用canvas画简单海报并保存图片

利用html+js触发弹窗事件

江南才子 LV4