网站首页 > 知识剖析 正文
跨多文件批量操作
在 VBA 编程中,倘若涉及跨多个文件的批量操作,那 Dir 函数往往是不可或缺的得力 “工具”。无论是合并工作簿、工作簿批量转PDF,还是批量导入图片等操作,Dir 函数都无处不在。
例如,当我们要批量获取某个文件夹下所有xlsm格式的文件名时,可以使用以下VBA代码:
Sub 批量获取xlsm格式的文件名()
Dim fn As String
Dim folder As String
folder = "C:\VBAMatrix\"
fn = Dir(folder & "*.xlsm")
Do While fn <> ""
Debug.Print fn
fn = Dir
Loop
End Sub
如果要批量获取其他格式的文件名时,只要将第五行的代码稍加修改即可。例如,要批量获取jpg格式的文件名,第五行改为:
fn = Dir(folder & "*.jpg")
Dir函数的小Bug
然而,当我们使用Dir函数匹配*.xls格式的文件时,会同时匹配到文件后缀相似的文件(.xlsm和.xlsx等格式),导致出现不符合预期的结果。为此,我们可以修正一下代码,以批量获取所有xls格式的文件名。
Sub 批量获取xls格式的文件名()
Dim fn As String
Dim folder As String
folder = "C:\VBAMatrix\"
fn = Dir(folder & "*.xls")
Dim fileExtension As String
Do While fn <> ""
'获取文件的后缀名,用于精确判断格式
fileExtension = Right(fn, Len(fn) - InStrRev(fn, "."))
If fileExtension = "xls" Then
Debug.Print fn
End If
fn = Dir
Loop
End Sub
Dir函数的缺憾
还有一个缺憾是,Dir函数并不能直接获取子文件夹下的文件名。幸运的是,“Excel矩阵”插件已经内置了“全级次遍历文件名”功能。
使用方法也非常简单:依次点击Excel矩阵-->文件管理-->遍历文件,然后我们选择一个文件夹,就将该文件夹下(含子文件夹)所有文件名称及完整路径写入一个新工作表了。
猜你喜欢
- 2025-07-09 代码分享:Python和VB代码实现批量合并EXCEL数据,拿走不谢
- 2025-07-09 vba常用代码总结(excel vba常用代码175个实例解析)
- 2025-07-09 上传图片或附件到指定文件夹或共享文件夹的通用函数
- 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 从入门到放弃系列》
- 2025-07-09 Excel VBA学习笔记:取文件夹中所有文件:DIR函数
- 最近发表
-
- 表格存储 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)