Excel VBA学习笔记：取文件夹中所有文件：DIR函数

欢迎大家来到IT世界,在知识的湖畔探索吧!

Dir 是个函数，返回文件名，是字符串。

用法：第1句：变量=Dir(“文件夹”) ；第2句：变量=Dir 。第1步相当于初始化，这时变量会得到该文件夹下的第1个文件名（按“名称”排序的第1个），之后只需写 变量=Dir 就会依次得到文件名。文件遍历完后，Dir函数会返回Empty 值。

Dir通常与Do…Loop Until 循环语句配合使用。

Sub 遍历() fn = Dir(“e:\temp\”) ’注意文件夹右边还需要”\”符号 Do n=n+1 Range(“A”&n)=fn ’在A列 输出 文件名 fn =Dir Loop until fn = “” End Sub

欢迎大家来到IT世界,在知识的湖畔探索吧!

fn 得到的文件名，是不含路径的。

欢迎大家来到IT世界,在知识的湖畔探索吧!

Dir 函数支持通配符 *、？ 的。示例：fn = Dir(“e:\temp\*.xlsx”) 得到的就只是后缀名为xlsx的文件。

结合上一讲，如果需要处理某个文件夹下的EXCEL文件，而文件夹下文件太多，用GetOpenFilename选取操作也很麻烦。

欢迎大家来到IT世界,在知识的湖畔探索吧!Sub 遍历文件() Dim arr(1 To 100) GF = Application.GetOpenFilename("Excel 文件,*.xls*", MultiSelect:=False) If VBA.TypeName(GOF) = "Boolean" Then Exit Sub 路径 = Left(GF, InStrRev(GF, "\")) ’InstrRev 从右往左 查找"\"字符 Fn = Dir(路径 & "*.xls") '变量不需要双引号 Do n = n + 1 arr(n) = Fn '文件名存储到数组中 Fn = Dir Loop Until Fn = "" For i = 1 To UBound(arr) '将数组进行循环，打开文件取数据 Set WB = Workbooks.Open(路径 & arr(i)) brr = WB.Sheets(1).UsedRange ThisWorkbook.Sheets(i).Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr Next i End IF

在测试DIR函数时，我发现了一“BUG”：就是用后缀名筛选文件时，后缀名为3个字符时会产生BUG，如下图后缀名xls，跟“xls*”一样的效果

而后缀名是2个字符、4个字符都不会产生这种现象。

附带介绍Name 语句：

1、改名：Name “完整的路径+文件名” AS “完整的路径+新文件名”

2、移动：Name “完整的路径+文件名” AS “新的路径+新文件名”；就会移动到新目录中去，“新目录”是已经存在的目录，Name 不会给你新建目录的。