¿Cómo se puede "dividir" un archivo de Excel (.xlsx) que contiene varias hojas en una hoja separada [n] .xlsx?

Creo que el título lo dice todo para esta pregunta, pero para explicar un poco más:

Tengo un archivo .xlsx que contiene unas pocas docenas de hojas. Quiero generar todas esas hojas como archivos .xlsx separados. No es necesario nombrarlos automáticamente. ¿Excel tiene una función para exportar hojas a un archivo separado?

No es una característica incorporada.

Sin embargo, si ejecuta este código, debería hacer el trabajo.

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 ejecutar el código, haga lo siguiente:

1. Abra el editor de VBA ( Alt+ F11)
2. En el árbol en la esquina superior izquierda, haga clic derecho en su libro e inserte un nuevo módulo
3. Copie el código anterior en este módulo
4. Cierra el editor de VBA
5. En Excel, presione Alt+ F8para ejecutar macros y seleccioneSaveSheets

o vea ¿Cómo agrego VBA en MS Office?

1. Cuando hace clic con el botón derecho en la pestaña de una hoja de Excel, puede seleccionar Mover o Copiar ...

   

2. En el cuadro de diálogo resultante, puede seleccionar un libro de trabajo de destino. Seleccione (nuevo libro) .

   

3. Haz clic en Aceptar . Su hoja ahora está dentro de un nuevo documento.

Probé solución de Peter Albert y no funcionó para mí, así que encontré una solución en este post ( “Excel - Guardar hojas de cálculo como archivos separados”) en el Diario de un geek de la computadora .

Funciona muy bien Debe cambiar el nombre de las hojas que contienen puntos para obtener correctamente los archivos con .xlsextensiones.

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 las instrucciones para crear y ejecutar esta macro desde la publicación de Peter Albert o desde ¿Cómo agrego VBA en MS Office?