删除另一个工作簿中的工作表并关闭

Question

我有两本工作簿。我们称他们为wb1和wb2。我的所有代码都驻留在wb1中。作为wb1代码的一部分，我想在wb2中删除一些工作表，关闭wb2，然后在wb1中继续我的代码。

我的问题是，当我删除wb2中的工作表时，我现在已经激活了wb2并停止了wb1中的代码运行。

有没有经验呢？有没有解决方法？

当我运行以下内容时，删除wsControl后执行停止。我被困在wsTables。

Dim wb As Workbook
Dim wsControl As Worksheet, wsTables As Worksheet
Set wb = ActiveWorkbook
Set wsControl = wb.Sheets("Control")
Set wsTables = wb.Sheets("Tables")

wsControl.Delete
wsTables.Delete

wb.Close True

谢谢！

Answer 1

您应该设置Application.DisplayAlerts=False以禁止删除确认消息，否则显示Excel。