HOW TO：複製工作表

發行項
08/12/2011

您可以建立工作表複本，然後在活頁簿的現有工作表之前或之後插入該工作表。如果不指定要插入工作表的位置，則 Excel 會建立一個新活頁簿以包含這個新工作表。

**適用於：**本主題中的資訊適用於 Excel 2007 和 Excel 2010 的文件層級專案和應用程式層級專案。如需詳細資訊，請參閱依 Office 應用程式和專案類型提供的功能。

注意事項
無論您以程式的方式複製工作表，還是使用者以手動方式複製工作表，新工作表都沒有後置程式碼，且新工作表上的控制項不起作用。這是因為，新複製的工作表是 Microsoft.Office.Interop.Excel.Worksheet 物件，而不是 Microsoft.Office.Tools.Excel.Worksheet 主項目。只可將 Windows Form 控制項和主控制項加入主項目。如需詳細資訊，請參閱主項目和主控制項的程式設計限制。

無論您以程式的方式複製工作表，還是使用者以手動方式複製工作表，新工作表都沒有後置程式碼，且新工作表上的控制項不起作用。這是因為，新複製的工作表是 Microsoft.Office.Interop.Excel.Worksheet 物件，而不是 Microsoft.Office.Tools.Excel.Worksheet 主項目。只可將 Windows Form 控制項和主控制項加入主項目。如需詳細資訊，請參閱主項目和主控制項的程式設計限制。

若要透過文件層級自訂將複製的工作表加入至活頁簿

使用 Copy 方法複製目前活頁簿中的第一個工作表，並將複本置於第三個工作表之後。

Globals.Sheet1.Copy(After:=Globals.ThisWorkbook.Sheets(3))

Globals.Sheet1.Copy(missing, Globals.ThisWorkbook.Sheets[3]);

若要透過應用程式層級增益集將複製的工作表加入至活頁簿

使用 Copy 方法複製目前活頁簿中的第一個工作表，並將複本置於第三個工作表之後。

Dim worksheet1 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(1),  _
Excel.Worksheet)
Dim worksheet3 As Excel.Worksheet = CType(Application.ActiveWorkbook.Worksheets(3),  _
Excel.Worksheet)
worksheet1.Copy(After:=worksheet3)

Excel.Worksheet worksheet1 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[1]);
Excel.Worksheet worksheet3 = ((Excel.Worksheet)Application.ActiveWorkbook.Worksheets[3]);
worksheet1.Copy(missing, worksheet3);