将工作表复制到另一个工作簿，但工作表也保存在一个新的工作簿中

我需要将工作表从一个工作簿复制到另一个（现有的）工作簿。 它工作，但工作表也自动保存在一个新的工作簿。 我不知道这是为什么。 这是我的代码：

Worksheets("New").Activate If IsSheetEmpty(StartWorkbook.Sheets("New")) = True Then Application.DisplayAlerts = False Worksheets("New").Delete OLDWorkbook.Activate Sheets("sheet1").Select Sheets("sheet1").Copy Sheets("sheet1").Copy After:=StartWorkbook.Sheets("Control") StartWorkbook.Activate Sheets("sheet1").Name = "New" OLD.Close Application.DisplayAlerts = True Else MsgBox ("sheet is not empty") End If 

提前致谢

Answer 1

只是为了有一个正确的答案：

此行为是由于复制没有目标的工作表，所以将创build一个新工作簿来存放此工作表。 出于这个原因，没有命令来“粘贴”复印的纸张。

对于给定的代码，只需删除该行

 Sheets("sheet1").Copy 

但保持行：

 Sheets("sheet1").Copy After:=StartWorkbook.Sheets("Control") 

（显然，这是必要的）;）