Question

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

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

只是得到一个正确的答案：

此行为是由于复制没有目标的工作表，将创建一个包含此工作表的新工作簿。因此，没有命令“粘贴”复制的纸张。

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

即可

Sheets("sheet1").Copy

但请保持一致：

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

（显然，需要）;）

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

1 个答案: