Guardar libro de excel según nombres de hojas
Estoy intentando guardar un libro de excel que genero, dándole un nombre que depende del numero de hojas que tiene el libro.
Las hojas tienen nombres del día del mes y el numero de hojas puede ser variable.
Por ejemplo, si el libro tiene tres hojas con nombre 5 6 y 7, guardar el libro con nombre "5 6 7"
1 Respuesta
Respuesta de Elsa Matilde
1
Esta macro resuelve tu consulta. Solo ajusta la variable ruta con el nombre de la carpeta donde deba guardarse. Por ahora lo hará en la misma del libro activo.
Sub guardaLibro() 'x Elsamatilde 'cadena con los nombres de todas las hojas For Each sh In Sheets cadena = cadena & sh.Name & " " Next sh On Error Resume Next ruta = ThisWorkBook.Path ActiveWorkbook.SaveAs Filename:=ruta & "/" & Trim(cadena) & ".xlsm" End Sub
Coloco un control de error porque todo tiene un límite..... no sabemos qué tan largo quedará el texto o cadena ;)
