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 =DirLoop until fn = “”End Subfn 得到的文件名，是不含路径的。
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 = DirLoop 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)) = arrNext iEnd IF在测试DIR函数时，我发现了一“BUG”：就是用后缀名筛选文件时，后缀名为3个字符时会产生BUG，如下图后缀名xls，跟“xls*”一样的效果
而后缀名是2个字符、4个字符都不会产生这种现象。
附带介绍Name 语句：
1、改名：Name “完整的路径+文件名” AS “完整的路径+新文件名”
2、移动：Name “完整的路径+文件名” AS “新的路径+新文件名”；就会移动到新目录中去，“新目录”是已经存在的目录，Name 不会给你新建目录的。
原创文章，作者：芒小种，如若转载，请注明出处：http://www.fhgg.net/shenghuobaike/7652.html
本文来自投稿，不代表【食趣网】立场，如若转载，请注明出处：http://www.fhgg.net/
