如何使用VBA编程在特定文件夹中打开满足特定后缀名的文件

VBA编程怎么写指定文件夹路径并依次打开符合后缀名要的文件

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

请问高人 vba中选择文件的路径和文件名放在哪个控件中怎么实现

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：\＂ ”就是你要存的路径。

希望我的回答对你有所帮助。