¿Cómo exportar y guardar cada hoja de cálculo como un nuevo libro de trabajo separado en Excel?

Exportar y guardar hojas de cálculo individuales como libros de trabajo separados en Excel es una tarea común, especialmente al compartir u organizar datos. Aunque copiar y pegar manualmente las hojas de cálculo en nuevos libros de trabajo es una opción, puede ser tedioso y llevar mucho tiempo, especialmente para libros con múltiples hojas. En esta guía, exploraremos varios métodos para lograr esto paso a paso, ayudándote a elegir la mejor solución según tus necesidades y experiencia.

Guardar hojas de cálculo como un nuevo libro de trabajo uno por uno con el comando Mover o Copiar

Usar el comando "Mover o Copiar" te ayudará a exportar o copiar una o varias hojas de cálculo a un nuevo libro de trabajo rápidamente.

Paso 1: Selecciona los nombres de las hojas de cálculo desde la barra de pestañas. Para seleccionar varias hojas de cálculo, mantén presionada la tecla "Ctrl" y haz clic en las pestañas de las hojas una por una.

Paso 2: Haz clic derecho en el nombre de la hoja de cálculo y selecciona "Mover o Copiar" desde el menú contextual.

Paso 3: En el cuadro de diálogo "Mover o Copiar", selecciona el elemento "(nuevo libro)" desde la lista desplegable de "Mover hojas seleccionadas al libro".

Paso 4: Luego haz clic en "Aceptar", ahora habrás cambiado al "nuevo libro de trabajo" con las hojas de cálculo exportadas o copiadas, haz clic en "Archivo" > "Guardar" para guardar el nuevo libro de trabajo.

Nota: En el cuadro de diálogo "Mover o Copiar", hay una opción "Crear una copia". Si no la marcas, moverá las hojas de cálculo seleccionadas fuera del libro original; si la marcas, copiará las hojas de cálculo seleccionadas.

Guardar fácilmente hojas de cálculo por lotes como un nuevo libro de trabajo con Kutools para Excel

Si tienes varias hojas de cálculo que necesitan guardarse como libros separados, el primer método no es una buena opción. Y el código VBA a continuación puede ser un poco complicado para principiantes en Excel. Aquí puedes usar la utilidad "Separar libro" de "Kutools para Excel" para guardar fácilmente cada hoja de cálculo de un libro en libros de trabajo nuevos separados.

Después de instalar Kutools para Excel, haz clic en "Kutools Plus" > "Libro de Trabajo" > "Separar libro" para abrir el cuadro de diálogo "Separar libro". Luego configura como sigue.

1. Marca las hojas de cálculo que deseas guardar como nuevos libros de trabajo. Por defecto, todas las hojas están marcadas.
2. Es opcional omitir hojas ocultas y en blanco marcando las casillas correspondientes en la sección "Opciones".
3. Haz clic en "Aceptar".

   

4. Aparecerá un cuadro de diálogo "Seleccionar carpeta", luego necesitarás seleccionar una carpeta de destino para guardar los nuevos libros de trabajo y hacer clic en el botón "Seleccionar carpeta".

Luego, las hojas de cálculo especificadas o todas las hojas de cálculo se guardarán como libros de trabajo nuevos separados inmediatamente.

Exportar y guardar hojas de cálculo como un nuevo libro de trabajo con código VBA

El siguiente código exportará cada hoja de cálculo visible en un nuevo libro de trabajo y guardará el libro con el nombre de la hoja original en una carpeta recién creada en la misma ruta que el libro de trabajo activo. Por favor, sigue los siguientes pasos:

Paso 1: Mantén presionadas las teclas "ALT" + "F11", y se abrirá la ventana "Microsoft Visual Basic para Aplicaciones".

Paso 2: Haz clic en "Insertar" > "Módulo", y pega la siguiente macro en la Ventana de Módulo:

VBA : Exportar y guardar hojas de cálculo como un nuevo libro de trabajo en una nueva carpeta.

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

Paso 3: Presiona la tecla "F5" para ejecutar este código. Aparecerá un cuadro de mensaje indicándote la ubicación de los nuevos libros de trabajo exportados, y todas las hojas de cálculo del libro original se habrán exportado a nuevos libros de trabajo separados que llevan los nombres de las hojas originales en una nueva carpeta específica.

Demostración: Exportar y guardar cada hoja como un nuevo libro de trabajo

Artículos relacionados:

• Combinar múltiples libros de trabajo en un solo libro de trabajo
• Guardar una selección como archivo individual
• Dividir un libro de trabajo en archivos de Excel separados