Usuário com melhor resposta
Copiar planilha usada em planilha nova

Pergunta
-
Respostas
-
Segue código comentado em VBA
Code BlockSub Copiar_Planilhas()
Dim ArquivoOrigem As String, ArquivoDestino As String
Dim Plan As Worksheet
Dim N_Plan As Integer
'Captura do nome da pasta de trabalho de origem
ArquivoOrigem = ThisWorkbook.Name
'Abertura da pasta de trabalho de destino
Workbooks.Open Filename:= _
"C:\Teste.xls"
'Contagem do nº de planilhas da pasta de destino
N_Plan = ActiveWorkbook.Worksheets.Count
'Captura do nome da pasta de trabalho de destino
ArquivoDestino = ActiveWorkbook.Name
'Loop para copiar cada uma das planilhas da pasta de origem
For Each Plan In ThisWorkbook.Worksheets
Plan.Copy After:=Workbooks(ArquivoDestino).Sheets(N_Plan)
'Incremento da contagem de planilhas da pasta de destino
N_Plan = N_Plan + 1
Next Plan
'Salva as alterações da pasta de destino
Workbooks(ArquivoDestino).Save
End SubOBS:
1. O código deve estar inserido na pasta de trabalho a partir da qual serão copiadas as planilhas
2. O arquivo de destino pode ser pesquisado de forma mais interativa, como por exemplo utilizando o método GetOpenFileName.
3. Acredito que com base nos comentários vc possa modificar o código para atender às suas necessidades.
[]s
- Sugerido como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:42
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:42
Todas as Respostas
-
Segue código comentado em VBA
Code BlockSub Copiar_Planilhas()
Dim ArquivoOrigem As String, ArquivoDestino As String
Dim Plan As Worksheet
Dim N_Plan As Integer
'Captura do nome da pasta de trabalho de origem
ArquivoOrigem = ThisWorkbook.Name
'Abertura da pasta de trabalho de destino
Workbooks.Open Filename:= _
"C:\Teste.xls"
'Contagem do nº de planilhas da pasta de destino
N_Plan = ActiveWorkbook.Worksheets.Count
'Captura do nome da pasta de trabalho de destino
ArquivoDestino = ActiveWorkbook.Name
'Loop para copiar cada uma das planilhas da pasta de origem
For Each Plan In ThisWorkbook.Worksheets
Plan.Copy After:=Workbooks(ArquivoDestino).Sheets(N_Plan)
'Incremento da contagem de planilhas da pasta de destino
N_Plan = N_Plan + 1
Next Plan
'Salva as alterações da pasta de destino
Workbooks(ArquivoDestino).Save
End SubOBS:
1. O código deve estar inserido na pasta de trabalho a partir da qual serão copiadas as planilhas
2. O arquivo de destino pode ser pesquisado de forma mais interativa, como por exemplo utilizando o método GetOpenFileName.
3. Acredito que com base nos comentários vc possa modificar o código para atender às suas necessidades.
[]s
- Sugerido como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:42
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 19 de setembro de 2012 11:42
-
-