VBA学习笔记之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