Porady: Programowane kopiowanie arkuszy

Artykuł
06/10/2015

Można utworzyć kopię arkusza i wstawić ten arkusz, przed lub po istniejącego arkusza w skoroszycie.Jeśli nie określisz, gdzie wstawić arkusz, program Excel utworzy nowy skoroszyt ma zawierać nowy arkusz.

Zastosowanie: Informacje przedstawione w tym temacie mają zastosowanie do projektów na poziomie dokumentu i aplikacji obsługiwanych w programach Excel 2013 i Excel 2010. Aby uzyskać więcej informacji, zobacz Funkcje dostępne w aplikacjach pakietu Office i typ projektu.

[!UWAGA]

Programowo skopiowania arkusza, czy użytkownik końcowy kopii arkusza ręcznie, nie ma kodu za nowy arkusz i formanty w nowym arkuszu nie działają.Nowo skopiowanego arkusza jest Worksheet obiektu i nie Worksheet element hosta.Formanty Windows Forms i hosta mogą być dodawane tylko do elementów hosta.Aby uzyskać więcej informacji, zobacz Ograniczenia programowe elementów hosta i formantów hosta.

Aby dodać skopiowane arkusz do skoroszytu w dostosowywania poziomie dokumentu

Użyj Copy metody kopiowania pierwszego arkusza w bieżącym skoroszycie i umieścić kopię po trzecim arkuszu.

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

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

Aby dodać skopiowane arkusz do skoroszytu w dodatku poziomie aplikacji

Użyj Copy metody kopiowania pierwszego arkusza w bieżącym skoroszycie i umieścić kopię po trzecim arkuszu.

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(worksheet3);