Como copiar ou mover planilhas usando código do VBA no Excel para Mac

IMPORTANTE: Este artigo foi traduzido pelo software de tradução automática da Microsoft e eventualmente pode ter sido editado pela Microsoft Community através da tecnologia Community Translation Framework (CTF) ou por um tradutor profissional. A Microsoft oferece artigos traduzidos automaticamente por software, por tradutores profissionais e editados pela comunidade para que você tenha acesso a todos os artigos de nossa Base de Conhecimento em diversos idiomas. No entanto, um artigo traduzido pode conter erros de vocabulário, sintaxe e/ou gramática. A Microsoft não é responsável por qualquer inexatidão, erro ou dano causado por qualquer tradução imprecisa do conteúdo ou por seu uso pelos nossos clientes.

Clique aqui para ver a versão em Inglês deste artigo: 288402
Sumário
Você pode usar o Microsoft Visual Basic for Applications código (VBA) para copiar ou mover planilhas em uma pasta de trabalho ou entre pastas de trabalho. Isso é particularmente útil se você deseja mover ou copiar várias planilhas ou se você deseja fazer várias cópias de uma planilha.

Este artigo fornece exemplos de código VBA para realizar essas tarefas.
Mais Informações
A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas. Observação: No Microsoft Excel 2001 para Macintosh sem o Microsoft Office 2001 para Mac Service Release 1, você deve colocar o código em uma pasta separada das planilhas que está sendo copiado.

Excel 2001 para Macintosh teve um problema quando o código do VBA que copia as planilhas na mesma pasta de trabalho como planilhas que estão sendo copiados.

Esse problema é resolvido com o Service Release 1 para o Microsoft Office 2001 para Mac. Para obter informações adicionais sobre esse problema no Excel 2001 para Mac, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:
286266 Excel trava ao tentar copiar planilha na mesma pasta de trabalho
:

Código de exemplo para copiar planilhas

Copiar uma planilha específica na pasta ativa

Sub Copier1()    'Replace "Sheet1" with the name of the sheet to be copied.    ActiveWorkbook.Sheets("Sheet1").Copy _       after:=ActiveWorkbook.Sheets("Sheet1")End Sub				

Copiar uma planilha específica na pasta ativa várias vezes

Sub Copier2()    Dim x As Integer        x = InputBox("Enter number of times to copy Sheet1")    For numtimes = 1 To x        'Loop by using x as the index number to make x number copies.        'Replace "Sheet1" with the name of the sheet to be copied.        ActiveWorkbook.Sheets("Sheet1").Copy _           After:=ActiveWorkbook.Sheets("Sheet1")    NextEnd Sub				

Copia a Planilha ativa várias vezes

Sub Copier3()   Dim x As Integer      x = InputBox("Enter number of times to copy active sheet")   For numtimes = 1 To x      'Loop by using x as the index number to make x number copies.      ActiveWorkbook.ActiveSheet.Copy _         Before:=ActiveWorkbook.Sheets("Sheet1")         'Put copies in front of Sheet1.         'Replace "Sheet1" with sheet name that you want.   NextEnd Sub				

Copiar todas as planilhas em uma pasta de trabalho uma vez

Sub Copier4()   Dim x As Integer   For x = 1 To ActiveWorkbook.Sheets.Count      'Loop through each of the sheets in the workbook      'by using x as the sheet index number.      ActiveWorkbook.Sheets(x).Copy _         After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)         'Puts all copies after the last existing sheet.   NextEnd Sub				

Código de exemplo para mover planilhas

Mover a planilha ativa para uma nova posição na pasta de trabalho

Sub Mover1()    ActiveSheet.Move _       After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)       'Moves active sheet to end of active workbook.End Sub				

Mover a planilha ativa para outra pasta de trabalho

Sub Mover2()    ActiveSheet.Move Before:=Workbooks("Test.xls").Sheets(1)    'Moves active sheet to beginning of named workbook.    'Replace Test.xls with the full name of the target workbook you want.End Sub				

Mover várias folhas ActiveWorkbook para outra pasta de trabalho

Sub Mover3()   Dim BkName As String   Dim NumSht As Integer   Dim BegSht As Integer   'Starts with second sheet - replace with index number of starting sheet.   BegSht = 2   'Moves two sheets - replace with number of sheets to move.   NumSht = 2   BkName = ActiveWorkbook.Name        For x = 1 To NumSht      'Moves second sheet in source to front of designated workbook.      Workbooks(BkName).Sheets(BegSht).Move _         Before:=Workbooks("Test.xls").Sheets(1)         'In each loop, the next sheet in line becomes indexed as number 2.      'Replace Test.xls with the full name of the target workbook you want.    NextEnd Sub				
Referências

Microsoft Excel X para Mac e versões posteriores

Para obter mais informações sobre o método de cópia, no Editor do Visual Basic, clique em Ajuda do pesquisa Microsoft Visual Basic no menu Ajuda , digite método Copy, clique em Pesquisare, em seguida, clique para exibir "Método de cópia". Três tópicos estão listados. Selecione aquela que se aplica a planilhas.

Para obter mais informações sobre o método Move, no Editor do Visual Basic, clique em Ajuda do pesquisa Microsoft Visual Basic no menu Ajuda , digite o método Move, clique em Pesquisare, em seguida, clique para exibir "Método de mudança." Três tópicos estão listados. Selecione aquela que se aplica a planilhas.

Excel 2001 para Macintosh

Para obter mais informações sobre o método de cópia, no Editor do Visual Basic, clique em Assistente do Office, digite método Copy, clique em Pesquisare, em seguida, clique para exibir "Método de cópia (MS Excel VBA)".

Para obter mais informações sobre o método Move, no Editor do Visual Basic, clique em Assistente do Office, digite o método Move, clique em Pesquisare, em seguida, clique para exibir "Mover método (MS Excel VBA)".

Para obter informações adicionais sobre problemas com copiar planilhas que contêm código na mesma pasta de trabalho, clique no número abaixo para ler o artigo na Base de Conhecimento da Microsoft:
286266 XL2001: O Excel trava ao tentar copiar planilha na mesma pasta de trabalho

Microsoft Excel 98 Macintosh Edition

Para obter mais informações sobre o método de cópia, no Editor do Visual Basic, clique em Assistente do Office, digite método Copy, clique em Pesquisare, em seguida, clique para exibir "Método de cópia (Excel 97)."

Para obter mais informações sobre o método Move, no Editor do Visual Basic, clique em Assistente de tipo de theOffice o método Move, clique em Pesquisare, em seguida, clique para exibir "Mover método (Excel 97)."

Código de cópia XL2001KB MAC XL2001 XL98 Excel automação de programação VBA transferência de macro do Visual Basic XLX XL2004

Propriedades

ID do Artigo: 288402 - Última Revisão: 05/21/2016 09:03:00 - Revisão: 6.0

Microsoft Excel 2004 for Mac, Microsoft Excel X para Macintosh, Microsoft Excel 2001 para Mac, Microsoft Excel 98 for Macintosh

  • dftsdahomeportal kbinfo kbmt KB288402 KbMtpt
Comentários