宏 - 打开文件夹中的所有文件

Question

我想打开指定文件夹中的所有文件并具有以下代码

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格式的报告.提前谢谢了.

Answer 1

您必须在此之前添加此行 loop

    MyFile = Dir
Loop