我想打开指定文件夹中的所有文件,有以下代码
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 格式的报告。非常感谢。
最佳答案
您必须在循环
之前添加此行
MyFile = Dir
Loop
关于excel - 宏 - 打开文件夹中的所有文件,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/11152870/