Separar Planilhas em Arquivos Excel

Neste vídeo você aprenderá como separar planilhas em arquivos no Excel passo-a-passo com download da planilha pronta.

Automatizar a separação de planilhas em arquivos distintos no Excel usando VBA é uma estratégia eficaz para gerenciar grandes conjuntos de dados.

Com scripts VBA personalizados, é possível dividir automaticamente as planilhas com base em critérios específicos, como categorias ou datas.

Esse processo simplifica a organização e facilita a análise de dados segmentados. Ao empregar o poder do VBA, os usuários podem economizar tempo e garantir uma abordagem mais eficiente na gestão de informações em seus projetos do Excel.

Separar Planilha em Arquivos no Excel

No nosso exemplo temos uma pasta de trabalho com várias planilhas e que desejamos exportar individualmente em vários arquivos no Excel.

Na imagem abaixo temos todas as planilhas que existem na nossa pasta de trabalho.

Código VBA para Separar Planilhas no Excel

Para separar as planilhas no Excel nós criamos um código VBA para separar planilhas em arquivos no Excel.

Para isso é necessário primeiro Habilitar a Guia Desenvolvedor no Excel e copiar o código abaixo, inserindo em um módulo.

Sub ExportarTodasPlanilhas()
    On Error GoTo TratarErro

    Dim wbOriginal      As Workbook
    Dim planilha        As Worksheet
    Dim pastaDestino    As String
    Dim nomeArquivo     As String
    
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    Application.EnableAnimations = False
    
    'Pasta original
    Set wbOriginal = ThisWorkbook
    
    'Destino
    pastaDestino = "C:\Rieper\Blog Guia do Excel\202 - Separar Planilhas Excel - Exportar Planilhas em Arquivos Excel\Arquivos\"
    
    'Loop pelas planilhas
    For Each planilha In wbOriginal.Sheets
        'Cria um novo arquivo
        Set novoArquivo = Workbooks.Add
        planilha.Copy Before:=novoArquivo.Sheets(1)
        novoArquivo.Sheets(2).Delete
        
        'Nome do arquivo exportado
        nomeArquivo = pastaDestino & planilha.Name & ".xlsx"
        
        'Salvar e fechar o novo
        novoArquivo.SaveAs nomeArquivo
        novoArquivo.Close False
    Next planilha
    
    MsgBox "Exportação concluída com sucesso!"
    
TratarErro:
    Application.DisplayAlerts = True
    Application.EnableEvents = True
    Application.EnableAnimations = True
    GoTo sair
sair:
    Exit Sub

End Sub

Para fazer isso clique na guia Desenvolvedor e no botão Visual Basic.

Ele irá abrir o editor do visual basic no Excel.

Em seguida clique na guia Inserir->Módulo e no módulo inserido copie o código acima e cole no módulo.

Executar o Código para Separar Arquivos

Para executar o código VBA para separar arquivos clique na Guia Desenvolvedor e no botão Macros e selecione a macro ExportarTodasPlanilhas.

Na tela seguinte será solicitado o local aonde serão gerados os arquivos.

E ao clicar no botão de selecionar a pasta, cada uma das planilhas da pasta de trabalho serão exportadas em arquivos na pasta selecionada de forma automática no Excel.

Como resultado temos os arquivos criados abaixo:

Download Planilha Separar Planilhas no Excel

Clique no botão abaixo para realizar o  download do arquivo de exemplo: