1. Habilite la pestaña del desarrollador:
* Abra su libro de trabajo de Excel.
* Vaya a Archivo> Opciones> Personalizar la cinta .
* Marque la casilla para el desarrollador .
* Haga clic en Aceptar .
2. Inserte un módulo VBA:
* Haga clic en desarrollador> Visual Basic .
* En el editor de Visual Basic (VBE), vaya a Insert> Módulo .
3. Pegar y modificar el código VBA:
`` `VBA
Sub Splitworksheets ()
Dim WB como Libro de trabajo, WS como hoja de trabajo
Dim Newwb como libro de trabajo
Dim nombre de archivo como cadena
Establecer wb =ActiveWorkBook 'Establecer el libro de trabajo activo
'Recorrer cada hoja de trabajo
Para cada WS en WB.Worksheets
'Crea un nuevo libro de trabajo
Establecer newwb =Workbooks.Add
'Copie la hoja de trabajo actual al nuevo libro de trabajo
ws.copy antes:=Newwb.heets (1)
'Cambie el nombre del nuevo libro de trabajo basado en el nombre de la hoja de trabajo
FileName =ws.name &".xlsx"
Newwb.Saveas FileName
'Cierre el nuevo libro de trabajo
Newwb.close
Siguiente WS
Final
`` `` ``
Explicación:
* `dim wb como libro de trabajo, ws como hoja de trabajo, newwb como libro de trabajo, nombre de archivo como cadena`: Declara variables para almacenar objetos de libros y hojas de trabajo, así como el nombre de archivo para el nuevo libro de trabajo.
* `set wb =ActiveWorkBook`: Establece la variable `WB` en el libro de trabajo actualmente activo.
* `para cada WS en WB.Worksheets`: Bucles a través de cada hoja de trabajo en el libro de trabajo activo.
* `set newwb =Workbooks.Add`: Crea un nuevo libro de trabajo en blanco.
* `ws.copy antes:=newwb.sheets (1)`: Copia la hoja de trabajo actual (`WS`) al libro de trabajo recién creado (` NewWB`), insertándolo antes de la primera hoja.
* `filename =ws.name &" .xlsx "`: Establece el nombre de archivo para el nuevo libro de trabajo utilizando el nombre de la hoja de trabajo y la extensión '.xlsx`.
* `Newwb.Saveas FileName`: Guarda el nuevo libro de trabajo con el nombre de archivo especificado.
* `newwb.close`: Cierra el libro de trabajo recién creado.
4. Ejecute la macro:
* Presione Alt + F11 Para volver a la hoja de Excel.
* Vaya a desarrollador> macros .
* Seleccione las hojas de trabajo Splitwork macro y haga clic en ejecutar .
La macro creará libros de trabajo de Excel separados para cada hoja de trabajo en su libro de trabajo original, guardándolos en la misma carpeta que el libro de trabajo original.
Notas adicionales:
* Personalice el formato de nombre de archivo: Puede modificar la variable 'nombre de archivo' para incluir información adicional, como fecha o hora, en los nombres de archivo guardados.
* Guardar en una carpeta específica: Puede especificar una carpeta diferente para guardar los nuevos libros de trabajo cambiando la variable 'FileName`.
* Ejecute la macro en un libro de trabajo diferente: Antes de ejecutar la macro, asegúrese de seleccionar el libro de trabajo que desea dividir en archivos separados.