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

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

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

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

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

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 不会给你新建目录的。