我想在一个指定的文件夹中打开的所有文件,并有下面的代码在打开的所有文件宏观 - 文件夹
Sub OpenFiles()
Dim MyFolder As String
Dim MyFile As String
MyFolder = "\\ILAFILESERVER\Public\Documents\Renewable Energy\FiTs\1 Planning
Department\Marks Tracker\Quality Control Reports"
MyFile = Dir(MyFolder & "\*.xlsx")
Do While MyFile <> ""
Workbooks.Open Filename:=MyFolder & "\" & MyFile
Loop
End Sub
我的问题是,它只是不断尝试打开的第一个文件文件夹反复,并且不会继续。任何人都可以帮忙,我在VBA有点新手,并且可以帮助一些人。我试图打开大约30个全部为.xlsx格式的报告。提前谢谢了。
是否要同时打开文件夹中的所有文件? –