Como exportar e guardar cada folha de cálculo como uma nova pasta de trabalho separada no Excel?
Exportar e guardar folhas de cálculo individuais como livros separados no Excel é uma tarefa comum, especialmente ao partilhar ou organizar dados. Embora copiar e colar manualmente as folhas para um novo livro seja uma opção viável, pode tornar-se tedioso e demorado — sobretudo em livros com múltiplas folhas. Neste guia, exploramos vários métodos para realizar esta tarefa passo a passo, ajudando-o a escolher a solução ideal de acordo com as suas necessidades e nível de conhecimento.
Guardar folhas de cálculo como Novo Workbook uma a uma com o comando Mover ou Copiar
Utilizar o comando «Mover ou Copiar» permite-lhe mover ou copiar rapidamente uma ou várias folhas de cálculo para um novo livro.
Passo 1: Selecione o nome da folha de cálculo na barra de guias. Para selecionar várias folhas, mantenha premida a tecla «Ctrl» e clique nas respetivas guias, uma a uma.
Passo 2: Clique com o botão direito do rato no nome da folha e selecione «Mover ou Copiar» no menu de contexto.
Passo 3: Na caixa de diálogo «Mover ou Copiar», selecione a opção «(novo livro)» na lista pendente «Mover as folhas selecionadas para o livro».
Passo 4: Em seguida, clique em «OK». Será então redirecionado para o «Novo Livro», que contém as folhas de cálculo exportadas ou copiadas; clique em «Ficheiro» > «Guardar» para guardar o Novo Livro.
Nota: Na caixa de diálogo «Mover ou Copiar», está disponível a opção «Criar uma cópia». Se não a selecionar, as planilhas escolhidas serão movidas do livro original; se a marcar, as planilhas selecionadas serão copiadas.
Guarde facilmente em lote folhas de cálculo como Novo Workbook com o Kutools para Excel
Se tiver várias folhas de cálculo que precisam de ser guardadas como livros separados, o primeiro método não é a melhor opção. Além disso, o código VBA abaixo pode ser um pouco complicado para utilizadores principiantes do Excel. Aqui, pode utilizar a utilidade «Separar Livro» do «Kutools para Excel» para guardar facilmente em lote cada folha de cálculo de um livro como um novo livro separado.
Após instalar o Kutools para Excel, clique em «KUTOOLS PLUS» > «Livro» > «Separar Livro» para abrir a caixa de diálogo «Separar Livro». Em seguida, configure-a da seguinte forma.
- Marque as folhas de cálculo que deseja guardar como um novo livro. Por predefinição, todas as folhas estão selecionadas.
- É opcional ignorar as folhas ocultas e a Planilha em Branco ao marcar as respetivas caixas de verificação na secção «Opções».
- Clique em «OK».
- É apresentada uma caixa de diálogo «Selecionar Pasta»; deverá então escolher uma pasta de destino para guardar o novo livro e clicar no botão «Selecionar Pasta».
De seguida, as folhas de cálculo especificadas ou todas as folhas de cálculo serão imediatamente guardadas como um novo livro separado.
- Esta funcionalidade permite-lhe guardar cada folha de cálculo como um ficheiro TXT, CSV ou PSF individual. Basta marcar a caixa **Especificar Formato de Gravação** e selecionar a opção pretendida no menu pendente.
- Para utilizar esta funcionalidade, deverá ter o «Kutools para Excel» instalado no seu computador.Transfira já o Kutools para Excel.
Exportar e guardar folhas de cálculo como Novo Workbook com código VBA
O código seguinte exportará todas as folhas de cálculo visíveis de um Novo Workbook e guardará o livro com o nome da folha original numa pasta recentemente criada no mesmo caminho do Workbook Atual. Siga os passos seguintes:
Passo 1: Mantenha premidas as teclas «ALT» + "F11" para abrir a janela do Microsoft Visual Basic for Applications.
Passo 2: Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do módulo:
VBA: Exporte e guarde folhas de cálculo como uma nova pasta de trabalho numa nova pasta.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook
DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString
If Val(Application.Version) < 12 Then
FileExtStr = ".xls": FileFormatNum = -4143
Else
Select Case xWb.FileFormat
Case 51:
FileExtStr = ".xlsx": FileFormatNum = 51
Case 52:
If Application.ActiveWorkbook.HasVBProject Then
FileExtStr = ".xlsm": FileFormatNum = 52
Else
FileExtStr = ".xlsx": FileFormatNum = 51
End If
Case 56:
FileExtStr = ".xls": FileFormatNum = 56
Case Else:
FileExtStr = ".xlsb": FileFormatNum = 50
End Select
End If
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End SubPasso 3: Prima a tecla "F5" para executar este código. Será exibida uma caixa de aviso indicando a localização dos novos livros exportados, e todas as folhas de cálculo do livro original terão sido guardadas como livros separados, com os respetivos nomes das folhas originais, numa pasta nova e dedicada.
Demonstração: Exportar e guardar cada folha como Novo Workbook
Artigos relacionados:
- Combinar vários livros num único livro
- Guardar uma seleção como ficheiro individual
- Dividir um livro em Arquivos do Excel separados
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos