2016-05-29 176 views
0

我需要將工作表從一個工作簿複製到另一個(現有)工作簿。它可以工作,但工作表也會自動保存在新的工作簿中。我不知道這是爲什麼。這是我的代碼:將工作表複製到另一個工作簿,但工作表也保存在新工作簿中

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 

在此先感謝

+1

刪除'表(」 。工作表Sheet1" )Copy'線(保持第二個與DEST部分)...... –

+0

哈哈沒關係,這是這麼簡單......非常感謝你,這是真的很煩:O) – VeVi

+0

歡迎您:) –

回答

1

正好有個正確的答案:

此行爲是由於這樣的事實,複製沒有目的地的片材,新的工作簿會創建了這張表。由於這個原因,沒有命令來「粘貼」複製的紙張。

對於給定的代碼,只需刪除行

Sheets("sheet1").Copy 

但保留行:

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

(很明顯,需要);)

相關問題