vba 编程求解

平平淡淡2025

下面的代码中，标红的如果是True 就会进入死循环，如果改成False，就会正常，请教高手解释原因
Sub huizong()
Application.DisplayAlerts = False
Dim wb As Workbook
Dim wb1 As Workbook
Dim i
Dim file1 As String

  mpath = ThisWorkbook.Path
   Set wb = Workbooks.Add
  file1 = Dir(mpath & "\" & "*.xlsx")
i = 1
Do While file1 <> ""
   Set wb1 = Workbooks.Open(mpath & "\" & file1)
wb1.Sheets(Array(Sheets(1).Name, Sheets(2).Name)).Copy before:=wb.Sheets(1)
wb1.Close savechanges:=True
i = i + 1
file1 = Dir
Loop
'wb.SaveAs (mpath & "\hongzong.xlsx")
'wb.Close
End Sub

暴虐狂徒

楼主是复制前两个工作表到新工作簿，所以原工作簿wb1无需保存即False，另外在循环中最好排除已经打开的工作簿，比如当前工作簿

平平淡淡2025

暴虐狂徒 发表于 2024-11-30 22:16
楼主是复制前两个工作表到新工作簿，所以原工作簿wb1无需保存即False，另外在循环中最好排除已经打开的工作 ...

另外在循环中最好排除已经打开的工作簿，比如当前工作簿，不明白这是什么意思，当True时为什么不行啊，如果3.xlsx去掉，就没问题了，这是为什么啊，是3.xlsx有问题吗

平平淡淡2025

平平淡淡2025 发表于 2024-11-30 22:35
另外在循环中最好排除已经打开的工作簿，比如当前工作簿，不明白这是什么意思，当True时为什么不行啊，如 ...

还有怎么排除已经打开的工作簿啊