网站首页 > 知识剖析 正文
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 不会给你新建目录的。
猜你喜欢
- 2025-07-09 代码分享:Python和VB代码实现批量合并EXCEL数据,拿走不谢
- 2025-07-09 vba常用代码总结(excel vba常用代码175个实例解析)
- 2025-07-09 上传图片或附件到指定文件夹或共享文件夹的通用函数
- 2025-07-09 注意了!在VBA使用Dir函数的“隐秘陷阱”
- 2025-07-09 使用VBA合并多个Excel文件(用vba合并多个excel工作表)
- 2025-07-09 ExcelVBA函数:保存当前工作簿的临时副本
- 2025-07-09 Excel常用技能分享与探讨(5-宏与VBA简介 VBA-实用自定义过程)
- 2025-07-09 Excel常用技能分享与探讨(5-宏与VBA简介 VBA常用到的函数一)
- 2025-07-09 Word隐藏的自动备份功能!每次保存生成独立副本,防丢稿终极方案
- 2025-07-09 保存后自动备份工作簿 《Excel VBA 从入门到放弃系列》
- 最近发表
-
- 表格存储 SQL 查询多元索引(表格存储 sql 查询多元索引的方法)
- 数据库教程-SQL Server多条件模糊查询
- Twitch宣布放弃Flash并逐步转型至HTML5平台
- 移动平台最强播放器MX Player:终于支持安卓5.0了!
- win10 NFS+黑群晖远程加载管理Windows文件夹(读写NTFS格式+高清播放器)
- Android端VLC 3.3版本发布,重新设计播放器界面
- 不仅仅被苹果封杀!Youtube宣布迁移Flash
- 揭开网站背后的魔法:B/S系统原来这么简单!
- Adobe Animate (An) 2020网页设计软件下载和安装教程
- Adobe发布“巨量”安全更新:遏制Flash“祸害”Linux
- 标签列表
-
- xml (46)
- css animation (57)
- array_slice (60)
- htmlspecialchars (54)
- position: absolute (54)
- datediff函数 (47)
- array_pop (49)
- jsmap (52)
- toggleclass (43)
- console.time (63)
- .sql (41)
- ahref (40)
- js json.parse (59)
- html复选框 (60)
- css 透明 (44)
- css 颜色 (47)
- php replace (41)
- css nth-child (48)
- min-height (40)
- xml schema (44)
- css 最后一个元素 (46)
- location.origin (44)
- table border (49)
- html tr (40)
- video controls (49)