VBA学习笔记之DIR函数

Posted 2020-10-01

Dir()主要用于获取（遍历）目录下的文件名

Sub open_all_files()
Dim a
a = Dir("C:\Users\Administrator\Desktop\新建文件夹\*.txt")‘将txt结尾的所有文件打开，但是在这里只打开第一个符合的文件，接下来的文件在do循环里依次打开
Workbooks.Open "C:\Users\Administrator\Desktop\新建文件夹\" + a
Do ‘遍历目录下的所有指定格式的文件名
a = Dir‘之前dir()下已经打开了多个文件，这里就不用在写上，表示依次打开符合格式的文件
If a <> "" Then
Workbooks.Open "C:\Users\Administrator\Desktop\新建文件夹\" + a‘打开每一个符合格式的文件
Else
Exit Sub
End If
Loop
End Sub