Dim path As String '外部文件夹路径
path = "F:\vba"
'当不确定路径的最后一位是不是"\"时,可以用如下代码判断:
If Right(path , 1) <> "\" Then
path = path & "\"
End If
'遍历文件夹,获取以".xlsx"结尾的文件
Dim count As Integer
Dim name As String
Dim file As String
count = 0
name = Dir(path & "*.xlsx")
Do While Len(name) <> 0
file = path + name
'处理...
'处理...
'处理...
'获取文件夹中下一个符合条件的文件名
count = count + 1
For i = 0 To count
If i = 0 Then
name = Dir(path & "*.xlsx")
Else
name = Dir
End If
Next
Loop
本来获取文件夹中下一个符合条件的文件名只需要 name = Dir 即可,但是这样写的时候,获取到的是name = ""。
因为在处理中又用到了Dir函数,所以用这种迂回的方式遍历文件夹。