Ir para o conteúdo principal

Como exportar e salvar cada planilha como uma nova pasta de trabalho separada no Excel?

Digamos que você queira exportar e salvar uma ou várias planilhas como uma nova pasta de trabalho, como você lidará com isso? Normalmente, você pode copiar cada planilha e colar em uma nova pasta de trabalho. Mas aqui trazemos alguns truques úteis para lidar com isso:

Exportar e salvar planilhas como uma nova pasta de trabalho com o comando Mover ou Copiar

Exportar e salvar planilhas como uma nova pasta de trabalho com código VBA

Exporte e salve planilhas como uma nova pasta de trabalho com o Kutools para Excel boa ideia 3


seta azul bolha direita Exportar e salvar planilhas como uma nova pasta de trabalho com o comando Mover ou Copiar

Com o Mover ou Copiar comando ajudará você a exportar ou copiar uma ou várias planilhas para uma nova pasta de trabalho rapidamente.

Etapa 1: Selecione os nomes da planilha na barra de guias. Você pode selecionar vários mantendo pressionado Ctrl chave ou mudança chave.

Etapa 2: clique com o botão direito no nome da planilha e clique no Mover ou Copiar no menu de contexto.
folhas de exportação doc 1

Etapa 3: em Mover ou Copiar caixa de diálogo, selecione o (livro novo) item da lista suspensa de Mover folhas selecionadas para livro.

folhas de exportação doc 2

Etapa 4: clique em OK, agora você mudou para o nova pasta de trabalho com planilhas exportadas ou copiadas, clique Envie o > Salvar para salvar a nova pasta de trabalho.

Nota: No Mover ou Copiar caixa de diálogo, há um Crie uma cópia opção. Se você não marcar, removerá as planilhas selecionadas da pasta de trabalho original; se marcar, copiará as planilhas selecionadas.


Divida rapidamente várias planilhas em uma pasta de trabalho separada no Excel

No Microsoft Excel, você pode salvar ou dividir uma planilha de uma pasta de trabalho como um novo arquivo do Excel, copiando e colando essa planilha em uma nova pasta de trabalho. Parece problemático, se você deseja dividir cada folha / planilha de uma grande pasta de trabalho em arquivos Excel, txt, csv, pdf separados. Mas com Kutools for Excel'S Dividir a pasta de trabalho utilitário, você pode lidar com isso rapidamente.  Clique para testar gratuitamente por 30 dias com todos os recursos!
doc divisão pasta de trabalho 1
 
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias.

seta azul bolha direita Exportar e salvar planilhas como uma nova pasta de trabalho com código VBA

O código a seguir exportará todas as planilhas visíveis em uma nova pasta de trabalho e salvará a pasta de trabalho com o nome da planilha original em uma pasta recém-criada no mesmo caminho da pasta de trabalho ativa. Siga as seguintes etapas:

Etapa 1: Mantenha pressionado o botão ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.

Etapa 2: clique inserção > Móduloe cole a seguinte macro na janela do módulo:

VBA: Exporte e salve planilhas como uma nova pasta de trabalho em uma 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 Sub

Etapa 3: pressione o F5 chave para executar este código. E uma caixa de prompt aparecerá para informar a localização das novas pastas de trabalho exportadas, e todas as planilhas da pasta de trabalho original foram exportadas para algumas novas pastas de trabalho separadas que nomearam as planilhas originais em uma nova pasta específica. Veja as capturas de tela:

folhas de exportação doc 7

seta azul bolha direita Exporte e salve planilhas como uma nova pasta de trabalho com o Kutools para Excel

Se você tiver que salvar várias planilhas como uma pasta de trabalho separada, o primeiro método não pode ser uma boa escolha. E o código VBA pode ser um pouco complicado para iniciantes em Excel. Aqui você pode usar o Dividir a pasta de trabalho utilidade de Kutools for Excel para exportar e salvar de forma rápida e fácil cada planilha de uma pasta de trabalho para separar a nova pasta de trabalho.

Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. 

Depois de instalação grátis Kutools para Excel, faça o seguinte:

Etapa 1: clique Kutools Plus > livro > Dividir a pasta de trabalho .... Veja a imagem:
folhas de exportação doc 3

Etapa 2: no Dividir a pasta de trabalho caixa de diálogo, faça o seguinte:

folhas de exportação doc 4
1: todos os nomes das planilhas foram marcados por padrão, se você não quiser dividir algumas das planilhas, você pode desmarcá-las;


2: Se quiser evitar a divisão de planilhas ocultas ou em branco, você pode verificar o Pular planilhas ocultas or Pular planilhas em branco) .;


3: e você também pode verificar Especifique salvar e para selecionar dividir as planilhas, salve como arquivo de texto, arquivo pdf ou arquivo csv, no padrão, se você não marcar esta opção, irá dividir as planilhas e salvar como pasta de trabalho.

Etapa 3: clique em Split e escolha a pasta na qual deseja colocar as novas pastas de trabalho. Veja a imagem:
folhas de exportação doc 6

Etapa 4: e clique em OK, então cada planilha marcada no Dividir a pasta de trabalho a caixa de diálogo é exportada e salva como uma pasta de trabalho individual. Cada nova pasta de trabalho é nomeada com o nome da planilha original. Veja a imagem:
folhas de exportação doc 5

Clique para saber mais informações sobre esta ferramenta Split Workbook.

seta azul bolha direita Exporte e salve cada planilha como uma nova pasta de trabalho


Divida os dados rapidamente em várias planilhas com base em colunas ou linhas fixas no Excel

Supondo que você tenha uma planilha com dados nas colunas A a G, o nome do vendedor está na coluna A e você precisa dividir automaticamente esses dados em várias planilhas com base na coluna A na mesma pasta de trabalho e cada vendedor será dividido em um novo planilha. Kutools for Excel'S Data de Divisão O utilitário pode ajudá-lo a dividir rapidamente os dados em várias planilhas com base na coluna selecionada, conforme a captura de tela abaixo mostrada no Excel.  Clique para um teste gratuito completo de 30 dias!
doc dividir dados 2
 
Kutools para Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias.

Artigos relacionados:

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations