Como: Copiar planilhas

Artigo
08/08/2011

Você pode criar uma cópia de uma planilha e inserir a planilha antes ou depois de uma planilha existente na pasta de trabalho. Se você não especificar onde inserir a planilha, o Excel cria uma nova pasta de trabalho para conter a nova planilha.

Aplicável a: As informações neste tópico se aplicam a projetos de nível de documento e projetos de nível de aplicativo para Excel 2007 e Excel 2010. Para obter mais informações, consulte Recursos disponíveis pelo aplicativo do Office e o tipo de projeto.

Observação
Se você copiar a planilha programaticamente, ou o usuário final copia a planilha manualmente, não há nenhum code-behind a nova planilha e controles na nova planilha não funcionam. Isso ocorre porque a planilha recém-copiado é um Microsoft.Office.Interop.Excel.Worksheet objeto e não um Microsoft.Office.Tools.Excel.Worksheet item de host. Controles Windows Forms e controles de host só podem ser adicionados aos itens de host. For more information, see Limitações de programação de itens de Host e controles de Host.

Se você copiar a planilha programaticamente, ou o usuário final copia a planilha manualmente, não há nenhum code-behind a nova planilha e controles na nova planilha não funcionam. Isso ocorre porque a planilha recém-copiado é um Microsoft.Office.Interop.Excel.Worksheet objeto e não um Microsoft.Office.Tools.Excel.Worksheet item de host. Controles Windows Forms e controles de host só podem ser adicionados aos itens de host. For more information, see Limitações de programação de itens de Host e controles de Host.

Para adicionar uma planilha copiada para uma pasta de trabalho em uma personalização em nível de documento

Use o Copy método para copiar a primeira planilha na pasta de trabalho atual e colocar a cópia após a terceira folha.

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

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

Para adicionar uma planilha copiada para uma pasta de trabalho em um suplemento em nível de aplicativo

Use o Copy método para copiar a primeira planilha na pasta de trabalho atual e colocar a cópia após a terceira folha.

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