Como se pode "dividir" um arquivo do Excel (.xlsx) que contém várias planilhas em planilhas separadas [n] .xlsx?

Penso que o título diz tudo para esta questão, mas para elaborar um pouco mais:

Eu tenho um arquivo .xlsx que contém algumas dezenas de folhas. Quero exibir todas essas folhas como arquivos .xlsx separados. A nomeação automatizada deles não é necessária. O Excel tem uma função para exportar folhas para um arquivo separado?

Não é um recurso interno.

No entanto, se você executar esse código, ele deverá fazer o trabalho.

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
    Next

    Application.ScreenUpdating = True
End Sub

Sub BreakLinks(wb As Workbook)
    Dim lnk As Variant
    For Each lnk In wb.LinkSources(xlExcelLinks)
        wb.BreakLink lnk, xlLinkTypeExcelLinks
    Next
End Sub

Para executar o código, faça o seguinte:

1. Abra o editor do VBA ( Alt+ F11)
2. Na árvore no canto superior esquerdo, clique com o botão direito do mouse na pasta de trabalho e insira um novo módulo
3. Copie o código acima para este módulo
4. Feche o editor VBA
5. No Excel, pressione Alt+ F8para executar macros e selecioneSaveSheets

ou consulte Como adiciono o VBA no MS Office?

1. Quando você clica com o botão direito do mouse na guia de uma planilha do Excel, pode selecionar Mover ou Copiar ...

   

2. Na caixa de diálogo resultante, você pode selecionar um caderno de trabalho de destino. Selecione (novo livro) .

   

3. Clique em OK . Sua planilha agora está dentro de um novo documento.

Tentei a solução de Peter Albert e ela não funcionou para mim, então encontrei uma solução nesta postagem (“Excel - salve planilhas em arquivos separados”) no Diário de um geek de computador .

Isso funciona muito bem. Você deve renomear folhas que contêm pontos para obter arquivos nomeados corretamente com .xlsextensões.

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

    Set wbThis = ThisWorkbook
    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

Use as instruções para criar e executar essa macro na postagem de Peter Albert ou em Como adiciono o VBA no MS Office?