GUARDAR varias Hojas como Libros
Me podrían ayudar con los siguiente
Genero un libro con varias hojas de calculo varían de 3 a 60 quiero guardar estas hojas como archivos individuales de excel conservando como nombre de archivo el de la pestaña que tenia
La siguiente macro te servirá. Observa los comentarios. Allí omito una cierta hoja (Portada) para que tengas como ejemplo por si deseas omitir algunas. Del resto se creará un libro xlsm (ajusta la extensión o me comentas si necesitas guardarlos en otro formato).
Sub Libro_Hojas() 'x Elsamatilde. Adaptación macro del manual 500Macros Application.ScreenUpdating = False For Each sh In Sheets 'se omite alguna If sh.Name <> "PORTADA" Then 'copio la hoja activa 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. Con formato xlsm .SaveAs ThisWorkbook.Path & "\" & sh.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'cerramos el nuevo libro .Close End With 'se libera el objeto Set wb = Nothing End If Next sh MsgBox "Fin del proceso." End Sub
Sdos y no olvides valorar las respuestas si el tema queda resuelto... sino comenta.
¡Gracias!
me agrado como omitir una hoja como puedo omitir otras hojas
Quiero omitir tres hojas de calculo más, como modificar esa línea del código
En esa línea agregá todas las hojas a omitir separadas con AND:
If sh.Name <> "PORTADA" And sh.Name <> "Hoja1" And sh.Name <> "Hoja2" And sh.Name <> "Hoja3" Then
Reemplazá los textos con tus nombres de hojas.
Sdos!
