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

wptr33 2024-12-09 18:00 35 浏览

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

vba instr

上一篇：excel实现查询、统计系统来学习vba中公式的使用
下一篇：「VBA基础」 Worksheet 对象操作技巧

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

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码因果推断模型

git pull命令使用实例 git pull--rebase

面试官:git pull是哪两个指令的组合?

git 执行pull错误如何撤销 git pull fail

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 之后本地代码被覆盖解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

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

相关推荐

C# 13 和 .NET 9 全知道 :13 使用 ASP.NET Core 构建网站 (1)

因果推断Matching方式实现代码 因果推断模型

git pull命令使用实例 git pull--rebase

面试官:git pull是哪两个指令的组合?

git 执行pull错误如何撤销 git pull fail

git pull 和git fetch 命令分别有什么作用?二者有什么区别?

git fetch 和git pull 的异同 git中fetch和pull的区别

git pull 之后本地代码被覆盖 解决方案

还可以这样玩?Git基本原理及各种骚操作，涨知识了

git命令之pull git.pull

因果推断Matching方式实现代码因果推断模型

git pull 之后本地代码被覆盖解决方案