学习VBA，报表做到飞 第一章 入门篇 1.25 Dir语句

第一章 入门篇

1.25 Dir语句

Dir可以返回一个指定文件夹下的文件名称（包含后缀）。例如：

filename = Dir("F:VBA学习")

这样，就会获得"F:VBA学习"目录下的一个文件名，并把这个文件名赋值给filename变量。

需要注意的是，文件夹地址后面一定要加上""，否则“VBA学习”会被当成一个文件名进行处理，而不是当成一个文件夹处理。

Dir运行一次只能得到一个文件名，为了得到下一个文件名，代码这样写：

filename = Dir

Dir后面不写任何参数，就可以获得"F:VBA学习"目录下的另一个文件名称。这时候有人问了，为什么不能像原来那样filename = Dir("F:VBA学习")写呢？如果这样写，则会重新扫描"F:VBA学习"文件夹，又会得到第一个文件名。

Dir配合do...loop循环语句，就可以得到一个文件夹下的所有文件名。以下是通用模板：

sub 获取文件名()

dim filename$

filename = Dir("F:VBA学习")

do

filename = Dir

loop until filename=""

end sub

首先用filename = Dir("F:VBA学习")这条语句把"F:VBA学习"目录下的第一个文件名称赋值给filename变量，算是对Dir语句的一个初始化，然后用do loop循环让Dir语句遍历"F:VBA学习"目录下的所有文件后，找不到新文件了返回空值，循环结束。

Dir函数支持通配符，若只想找某一类型的文件，就可以用通配符处理，如”*.wps”、”??.xls”。

例如：filename = Dir("F:VBA学习*.wps")

'获得"F:VBA学习"目录下的后缀名为wps的所有文件

filename = Dir("F:VBA学习*VBA*.*")

'获得"F:VBA学习"目录下的文件名称包含“VBA”的所有文件

小程序：

查询指定文件夹下的指定类型的文件，把文件列表写到表格里去。

我们可以在该表格下选择三个单元格，输入以下内容：

第一个单元格输入“文件类型”，第二个单元格建立一个下拉列表（选择该单元格，点击“数据”菜单，选择“下拉列表”，列表数据源来源于另一列单元格），第三个单元格插入一个命令按钮（选择该单元格，点击“开发工具”，选择“命令按钮”，然后沿该单元格边框画出命令按钮形状，并把命令按钮的Caption属性，也就是它的名称，改为“查询”），就象下面这样：

[b10]单元格的数据源于E列，在[c10]单元格插入了一个查询按钮。

Sub Dir获取文件名()

Dim 地址$, filename$, n%, 类型$

Range("a2:b8").Clear

地址 = "F:VBA学习"

类型 = [b10] '选取文件类型

filename = Dir(地址 & "*" & 类型)

Do

n = n + 1

Cells(n + 1 , 1) = n

Cells(n + 1 , 2) = filename

filename = Dir

Loop Until filename = ""

End Sub

选取文件类型后，点击查询按钮，首先用filename = Dir(地址 & "*" & 类型)语句，利用“*”通配符，把"F:VBA学习"目录下的符合选取类型的第一个文件名称赋值给filename变量。然后Do Loop语句开始循环，n变量从0开始，Cells(2 , 1) = 1，第二行第一个单元格的序号为1，Cells(2 , 2) = filename,第二行第二个单元格的内容为第一个文件名称。接着filename = Dir语句获取符合条件的第二个文件名称，再循环对第三行的单元格进行赋值。依次循环，就可以把该类型的文件名称都写入表格里了。

往期精彩回顾：

学习VBA，报表做到飞 第一章 入门篇 1.24 Do Loop语句

学习VBA，报表做到飞 第一章 入门篇 1.23 With语句

学习VBA，报表做到飞 第一章 入门篇 1.22 union与intersect

我是云飞扬，职场财会人员，愿与大家分享表格制作和数据统计分析的技巧与方法，希望大家的工作更便捷，更轻松！