Método Worksheet.Copy (Excel)

Copia a folha para outra localização no livro atual ou para um novo livro.

Sintaxe

expressão. Copiar (Antes, Depois)

expressão Uma variável que representa um objeto de Folha de Cálculo .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Before	Opcional	Variant	A planilha antes da qual a planilha copiada será inserida. Não é possível especificar Before se After for especificado.
After	Opcional	Variant	A planilha depois da qual a planilha copiada será inserida. Não é possível especificar After se Before for especificado.

Comentários

Se não especificar Antes ou Depois, o Microsoft Excel cria um novo livro que contém o objeto de Folha de Cálculo copiado. O livro recentemente criado contém a propriedade Application.ActiveWorkbook e contém uma única folha de cálculo. A folha de cálculo individual retém as propriedades Nome e NomeDoCódigo da folha de cálculo de origem. Se a folha de cálculo copiada tiver uma folha de código de folha de cálculo num projeto VBA, também será transportada para o novo livro.

Uma seleção de matriz de múltiplas folhas de cálculo pode ser copiada para um novo objeto de Livro em branco de forma semelhante.

A Origem e o Destino têm de estar na mesma instância do Excel.Application. Caso contrário, gerará um erro de runtime "1004": nenhuma interface suportada, se algo como Sheet1.Copy objWb.Sheets(1) foi utilizado ou um erro de runtime "1004": Falha ao copiar o método da classe Folha de Cálculo, se algo como ThisWorkbook.Worksheets("Sheet1").Copy objWb.Sheets(1) foi utilizado.

Exemplo

Este exemplo copia Sheet1, inserindo a cópia depois de Sheet3.

Worksheets("Sheet1").Copy After:=Worksheets("Sheet3")

Este exemplo copia primeiro a Folha1 para um novo livro em branco e, em seguida, guarda e fecha o novo livro.

Worksheets("Sheet1").Copy
With ActiveWorkbook 
     .SaveAs Filename:=Environ("TEMP") & "\New1.xlsx", FileFormat:=xlOpenXMLWorkbook
     .Close SaveChanges:=False
End With

Este exemplo copia as folhas de cálculo Folha1, Folha2 e Folha4 para um novo livro em branco e, em seguida, guarda e fecha o novo livro.

Worksheets(Array("Sheet1", "Sheet2", "Sheet4")).Copy
With ActiveWorkbook
     .SaveAs Filename:=Environ("TEMP") & "\New3.xlsx", FileFormat:=xlOpenXMLWorkbook 
     .Close SaveChanges:=False 
End With 

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.