总结
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
Sub DateSave()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
ThisWorkbook.Path & ＂\＂ & Date & ＂.xls＂, _
FileFormat:=xlNormal, _
Password:=＂＂, WriteResPassword:=＂＂, _
ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
End Sub
请将“ThisWorkbook.Path & ＂\＂ & Date & ＂.xls＂， _”改为“＂d:\＂ & Date & ＂.xls＂， _”，其中“＂d：\＂ ”就是你要存的路径。
希望我的回答对你有所帮助。
以上就是如何使用VBA编程指定文件夹路径并按顺序打开符合特定后缀名的文件的详细内容，更多请关注php中文网其它相关文章！
广告![ThinkPHP5快速开发企业站点[全程实录]](https://img.php.cn/upload/course/000/000/068/6253d918a3ce7278.png)
收藏
收藏
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号
下载豆包电脑版，提高工作效率
123
