Macro para grabar cada hoja en un archivo

Pues muuuchas gracias Hector... Ha salido fenomenal... El único inconveniente
es uno que tú apuntas: en el directorio donde se van a grabar ya existe el
fichero con ese nombre y el usuario debe de contestar "sí" cada vez que se
ejecuta la macro porque le pregunta si "desea reemplazar el fichero"...

Mi pregunta es: ¿se puede modificar de algún modo para que directamente
grabe sobre los libros con ese mismo nombre sin que tenga el usuario que
contestar "sí" a si desea reemplazar?...

Gracias de nuevo...

"Héctor Miguel" wrote:

hola, Tony !

> No hay nada que impida importar carpeta cada hoja de excel
> pero necesito que el final de una macro se quede grabada cada hoja en un archivo distinto con... los nombres de cada hoja
> Como se puede hacer?...

suponiendo que no habra problemas de nombres duplicados entre las hojas y/o libros ya existentes -?-
y asumiendo que cada nueva hoja-libro se puede guardar en el mismo directorio que el original -?-
prueba con una macro +/- como la siguiente (y la ejecutas desde tu libro con las 4 -o mas- hojas)...

Sub Separa_hojas()
Application.ScreenUpdating = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Copy
ActiveWorkbook.SaveAs ActiveSheet.Name
ActiveWorkbook.Close
Next
End Sub

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

hola, !

... en el directorio donde se van a grabar ya existe el fichero con ese nombre
y el usuario debe de contestar "si" cada vez que se ejecuta la macro porque le pregunta si "desea reemplazar el fichero"...
... se puede modificar... para que... grabe sobre los libros con ese mismo nombre sin que tenga el usuario que contestar ...

una opcion es suprimiendo los mensajes de alerta de la aplicacion (p.e.)

Sub Separa_hojas()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim n As Integer
For n = 1 To Worksheets.Count
Worksheets(n).Copy
ActiveWorkbook.SaveAs ActiveSheet.Name
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
End Sub

saludos,
hector.