循环稍微更改 – 打开文件夹和文件，然后再次执行相同的循环，但打开下一个文件夹中的文件
我是VBA新手，希望得到一些帮助。 我不认为这很困难，只是我的知识限制了我！
我创build了这个子文件夹，打开文件夹“beamresult \ 1”中包含* 100的文件，效果很好。 不过，我的挑战是，我有12个不同的文件夹，我希望打开文件。 另外，在这些文件夹中，我想打开不同的文件* 100，* 200，…，* 900。
所以在某种程度上，我想从文件夹1到12循环这个子文件夹。在所有这些文件夹中打开所有的文件并编辑它们。
（在完整的子文件中，在“循环”之前有很多代码来编辑我的文件，但是对于所有文件应该进行相同的编辑。）
希望有人有一个聪明的想法如何解决这个问题！
Sub OpenFiles() 'opens all files in a folder Dim MyFolder As String Dim MyFile As String MyFolder = "C:\Beamresults\1" MyFile = Dir(MyFolder & "\*100.xls") Do While MyFile <> "" Workbooks.Open Filename:=MyFolder & "\" & MyFile MyFile = Dir Loop End Sub Sub OpenFiles() 'opens all files in a folder Dim MyFolder As String Dim MyFile As String Dim x as Long For x = 1 to 12 MyFolder = "C:\Beamresults\" & x MyFile = Dir(MyFolder & "\*" & x & "00.xls") Do While MyFile <> "" Workbooks.Open Filename:=MyFolder & "\" & MyFile 'process and close file MyFile = Dir Loop Next x End Sub