Postupy: Kopírování listů prostřednictvím kódu programu

Článek
05/16/2015

Můžete vytvořit kopii listu a vložit listu před nebo za existující list v sešitu.Pokud neurčíte, kam chcete vložit list, aplikace Excel vytvoří nový sešit obsahovat nový list.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace v Excelu 2013 a v Excelu 2010. Další informace najdete v tématu Dostupné funkce podle aplikací systému Office a typů projektu.

[!POZNÁMKA]

Kopírování listu programově nebo koncový uživatel ručně zkopíruje listu, není žádný kód za nový list a nefungují ovládací prvky na nový list.Důvodem je nově zkopírovaného listu Worksheet objektu a není Worksheet položku hostitele.Model Windows Forms ovládací prvky a ovládací prvky hostitele lze přidat pouze položky hostitele.Další informace naleznete v tématu Programová omezení hostitelských položek a hostitelských ovládacích prvků.

Přidání kopírovaný list do sešitu v dokumentu úroveň přizpůsobení

Použití Copy metodu kopírování prvního listu v aktuálním sešitu a umístěte kopii po třetí list.

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

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

Přidání kopírovaný list do sešitu v doplňku úrovni aplikace

Použití Copy metodu kopírování prvního listu v aktuálním sešitu a umístěte kopii po třetí list.

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