Saltar al contenido principal

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

Digamos que desea exportar y guardar una o varias hojas de trabajo como un nuevo libro de trabajo, ¿cómo lo manejará? Normalmente, puede copiar cada hoja de trabajo y pegarla en un libro nuevo. Pero aquí te traemos algunos trucos útiles para afrontarlo:

Exporte y guarde hojas de trabajo como un nuevo libro de trabajo con el comando Mover o Copiar

Exporte y guarde hojas de trabajo como un nuevo libro de trabajo con código VBA

Exporte y guarde hojas de trabajo como un nuevo libro de trabajo con Kutools para Excel buena idea3


flecha azul burbuja derecha Exporte y guarde hojas de trabajo como un nuevo libro de trabajo con el comando Mover o Copiar

Usando el Mover o copiar El comando le ayudará a exportar o copiar una o varias hojas de trabajo a un nuevo libro rápidamente.

Paso 1: seleccione los nombres de las hojas de trabajo en la barra de pestañas. Puede seleccionar varios manteniendo pulsado Ctrl o Turno clave.

Paso 2: haga clic con el botón derecho en el nombre de la hoja de trabajo y haga clic en el Mover o copiar desde el menú contextual.
hojas de exportación doc 1

Paso 3: en Mover o copiar cuadro de diálogo, seleccione el (Nuevo libro) elemento de la lista desplegable de Mover hojas seleccionadas al libro.

hojas de exportación doc 2

Paso 4: luego haga clic en OK, ahora ha cambiado al nuevo libro de trabajo con hojas de trabajo exportadas o copiadas, haga clic en Archive > Guardar para guardar el nuevo libro de trabajo.

Nota: En Mover o copiar cuadro de diálogo, hay un Crea una copia opción. Si no lo marca, sacará las hojas de trabajo seleccionadas del libro de trabajo original; si lo marca, copiará las hojas de trabajo seleccionadas.


Divida rápidamente varias hojas de trabajo en un libro de trabajo separado en Excel

En Microsoft Excel, puede guardar o dividir una hoja de trabajo de un libro como un nuevo archivo de Excel al copiar y pegar esta hoja de trabajo en un nuevo libro. Parece problemático si desea dividir cada hoja / hoja de trabajo de un libro de trabajo grande como archivos Excel, txt, csv, pdf separados. Pero con Kutools for Excel, Libro de trabajo dividido utilidad, puede lidiar con ella rápidamente.  ¡Haga clic para obtener una prueba gratuita de 30 días con todas las funciones!
doc split libro de trabajo 1
 
Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días.

flecha azul burbuja derecha Exporte y guarde hojas de trabajo como un nuevo libro de trabajo con código VBA

El siguiente código exportará todas las hojas de trabajo visibles en un nuevo libro y guardará el libro con el nombre de la hoja original en una carpeta recién creada en la misma ruta que el libro activo. Siga los siguientes pasos:

Paso 1: mantenga presionada la tecla ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

Paso 2: Click recuadro > Móduloy pegue la siguiente macro en la ventana del módulo:

VBA: exporte y guarde hojas de trabajo 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: Presione el F5 clave para ejecutar este código. Y aparecerá un cuadro emergente para indicarle la ubicación de los nuevos libros de trabajo exportados, y todas las hojas de trabajo del libro de trabajo original se han exportado a algunos nuevos libros de trabajo separados que nombraron las hojas originales en una nueva carpeta específica. Ver capturas de pantalla:

hojas de exportación doc 7

flecha azul burbuja derecha Exporte y guarde hojas de trabajo como un nuevo libro de trabajo con Kutools para Excel

Si necesita guardar varias hojas de trabajo como un libro de trabajo separado, el primer método no puede ser una buena opción. Y el código VBA puede ser un poco complicado para los principiantes de Excel. Aquí puede utilizar el Libro de trabajo dividido utilidad de Kutools for Excel para exportar y guardar rápida y fácilmente cada hoja de trabajo de un libro para separar un nuevo libro.

Kutools for Excel, con más de 300 funciones prácticas, facilita su trabajo. 

Después instalación gratuita Kutools para Excel, haga lo siguiente:

Paso 1: Click Kutools Más > Libro de trabajo > Libro de trabajo dividido…. Ver captura de pantalla:
hojas de exportación doc 3

Paso 2: en el Libro de trabajo dividido cuadro de diálogo, haga lo siguiente:

hojas de exportación doc 4
1: todos los nombres de las hojas de trabajo se han marcado de forma predeterminada, si no desea dividir algunas de las hojas de trabajo, puede desmarcarlas;


2: Si desea evitar dividir las hojas de trabajo ocultas o en blanco, puede marcar el Omitir hojas de trabajo ocultas or Omitir hojas de trabajo en blanco.);


3: y también puedes comprobar Especificar guardar formato, y para seleccionar dividir las hojas y luego guardar como archivo de texto, archivo pdf o archivo csv, en defualt, si no marca esta opción, dividirá las hojas y se guardará como libro de trabajo.

Paso 3: luego haga clic en Mini Split y elija la carpeta en la que desea colocar los nuevos libros. Ver captura de pantalla:
hojas de exportación doc 6

Paso 4: y luego haga clic en OK, luego cada hoja de trabajo marcada en el Libro de trabajo dividido El cuadro de diálogo se exporta y guarda como libro de trabajo individual. Cada libro nuevo se nombra con el nombre de la hoja de trabajo original. Ver captura de pantalla:
hojas de exportación doc 5

Haga clic para obtener más información sobre esta herramienta Libro de trabajo dividido.

flecha azul burbuja derecha Exportar y guardar cada hoja como un libro nuevo


Divida rápidamente los datos en varias hojas de trabajo basadas en columnas o filas fijas en Excel

Supongamos que tiene una hoja de trabajo que tiene datos en las columnas A a G, el nombre del vendedor está en la columna A y necesita dividir automáticamente estos datos en varias hojas de trabajo según la columna A en el mismo libro de trabajo y cada vendedor se dividirá en una nueva hoja de cálculo. Kutools for Excel, Fecha dividida La utilidad puede ayudarlo a dividir rápidamente los datos en varias hojas de trabajo según la columna seleccionada, como se muestra a continuación en la captura de pantalla en Excel.  ¡Haga clic para obtener una prueba gratuita de 30 días con todas las funciones!
doc dividir datos 2
 
Kutools para Excel: con más de 300 prácticos complementos de Excel, prueba gratis sin límite en 30 días.

Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

Descripción


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

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