指定一个文件夹路径，里面有好多后缀名不一样的文件，
我就想依次打开后缀名是.csv的文件，然后在做其他操作。
这样的VBA程序我不太会写。
文件夹里可能还有子文件夹，怎么办？
第1个回答 2013-11-21
Sub Test()
Dim myPath As String, MyName As String
myPath = "C:\Documents\" 'Get Path
MyName = Dir(myPath) 'find the first file
If Right(MyName, 4) = ".csv" Then Workbooks.Open Filename:=myPath & MyName
Do While MyName <> ""
MyName = Dir 'find next
If Right(MyName, 4) = ".csv" Then Workbooks.Open Filename:=myPath & MyName
Loop
End Sub
Dim myPath As String, MyName As String
myPath = "C:\Documents\" 'Get Path
MyName = Dir(myPath) 'find the first file
If Right(MyName, 4) = ".csv" Then Workbooks.Open Filename:=myPath & MyName
Do While MyName <> ""
MyName = Dir 'find next
If Right(MyName, 4) = ".csv" Then Workbooks.Open Filename:=myPath & MyName
Loop
End Sub
