Vba将Excel中的工作簿与宏合并

Question

我有两个带宏的工作簿，我正在尝试将工作簿合并到一个工作簿中。我遇到的问题是每次我在合并的工作簿中运行宏时，它会不断重新打开旧工作簿，看来工作簿现在变得相互依赖了不是我想要的。

我未能将我的两个VBA项目合并到一个工作簿中。

下面是我用来合并两个工作簿的代码：

Sub GetSheets()
Path = "C:\Users\play\Desktop\New folder\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

谢谢