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的详细帮助及示例。

     本文转自windyli 51CTO博客，原文链接：http://blog.51cto.com/windyli/280988 ，如需转载请自行联系原作者