VBA中利用Dir遍历文件

  1. 云栖社区>
  2. 博客>
  3. 正文

VBA中利用Dir遍历文件

技术小胖子 2017-11-09 04:01:00 浏览1336
展开阅读全文
    选择系统分类的时候竟然找不到和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,如需转载请自行联系原作者


网友评论

登录后评论
0/500
评论