在 Excel VBA 中移动工作表时如何忽略“名称 XXX 已存在”消息

Question

我正在尝试从一个工作簿复制到另一个工作簿，但在移动工作表时收到一条消息，提示名称已存在。有没有办法自动忽略此消息？

消息是： 是：

副本代码

CurrentWorkBook.Sheets(Array("Compliance - learning")).Copy Before:=ActiveWorkbook.Sheets(1)

Answer 1

我想你正在寻找

Application.DisplayAlerts = False
    CurrentWorkBook.Sheets(Array("Compliance - learning")).Copy Before:=ActiveWorkbook.Sheets(1)
Application.DisplayAlerts = True