Listar en una hoja vacia de Excel el peso que tienen todas las hojas de un libro Excel
Necesito una macro que separe todas las hojas de un libro Excel en archivos independientes y los guarde en una carpeta, de forma automatica.
1 Respuesta
Respuesta de Elsa Matilde
2
No me queda claro si necesitas lo que dice el título o lo que dice el texto de la consulta. Me inclinaré por lo segundo.
La siguiente macro te creará un libro por cada hoja del libro activo guardándolos en la misma carpeta que el libro de origen.
Sub creaLibro_Hojas() 'x Elsamatilde 'recorro todas las hojas del libro For Each sh In Sheets sh.Copy 'creamos un nuevo objeto Libro Set wb = ActiveWorkbook With wb 'guardamos el libro en la misma carpeta y cuyo nombre es la hoja copiada .SaveAs ThisWorkbook.Path & "\" & ActiveSheet.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'cerramos el libro creado .Close End With 'se libera el objeto Set wb = Nothing 'repetimnos el bucle para la siguiente hoja Next sh End Sub
Los libros se guardan como xlsm pensando que quizás tengan macros... sino puede ser extensión xlsx.
* Si el tema queda resuelto recuerda valorar la respuesta (Buena o Excelente) . Sino comenta o solicita aclaraciones.
