............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Crear archivos desde hojas de un libro

Ver el tema anterior Ver el tema siguiente Ir abajo

Crear archivos desde hojas de un libro

Mensaje por Milton Cordova el Sáb Sep 24, 2016 12:06 am

Saludos, tengo una macro que genera un archivo nuevo desde la hoja activa, como puyedo adaptarala para que por ejem. en un archivo de 10 hojas me genere archivos en la misma carpeta del archivo original, para las hojas 1, Hoja,2, Hoja 3, Hoja 4, Hoja5.

Gracias

Sub Libros_de_Hoja()

Dim nombre As String
nombre = ActiveSheet.Name

ActiveSheet.Cells.Copy
Workbooks.Add
[A1].PasteSpecial xlAll
Application.CutCopyMode = False

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nombre
ActiveWindow.Close
End Sub

Milton Cordova

Masculino Cantidad de envíos : 22
Edad : 62
Ciudad - Pais : Quito - Ecuador
Version de Excel : 2003
Fecha de inscripción : 31/12/2009

Volver arriba Ir abajo

Re: Crear archivos desde hojas de un libro

Mensaje por albersil el Sáb Sep 24, 2016 5:52 am

Prueba con esto a ver si te sirve. Salu2.

Sub Libros_de_Hoja()

Dim nombre As String

For i = 1 To Sheets.Count

Application.DisplayAlerts = False

Application.SheetsInNewWorkbook = 1
On Error Resume Next
Sheets(i).Select

nombre = ActiveSheet.Name

ActiveSheet.Cells.Copy
Workbooks.Add
[A1].PasteSpecial xlAll
Application.CutCopyMode = False

ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & nombre
ActiveWorkbook.Close False

Application.DisplayAlerts = True

Next i
'ActiveWindow.Close
End Sub

albersil

Cantidad de envíos : 32
Fecha de inscripción : 30/01/2009

Volver arriba Ir abajo

Re: Crear archivos desde hojas de un libro

Mensaje por Milton Cordova el Sáb Sep 24, 2016 12:54 pm

Gracias por el envio, pero quiza no me explique bien, esto funciona para todas las hojas, lo que necesito que generen archivos solo para algunas hojas por ejm. Hoja1, Hoja2, Hoja5, Hoja7.
Gracias

Milton Cordova

Masculino Cantidad de envíos : 22
Edad : 62
Ciudad - Pais : Quito - Ecuador
Version de Excel : 2003
Fecha de inscripción : 31/12/2009

Volver arriba Ir abajo

Re: Crear archivos desde hojas de un libro

Mensaje por albersil el Dom Sep 25, 2016 6:04 am

Lo siento, eso ya se me escapa de mis conocimientos. Supongo que habrá que listar las hojas que tiene el libro y hacer una rutina para que el usuario elija las hojas que le interese. Esa idea no se como hacerlo con VBA, pero seguro que los grandes expertos que hay por aquí te lo solucionan rápido. Salu2.

albersil

Cantidad de envíos : 32
Fecha de inscripción : 30/01/2009

Volver arriba Ir abajo

SOLUCION

Mensaje por albersil el Dom Sep 25, 2016 7:01 am

Bueno he estado investigando y con una respuesta de DANTE AMOR en otra página, he adaptado el código para que haga lo que tú quieres. Te mando el enlace para que te bajes el fichero.
Si te interesa ver la respuesta aludida de DANTE AMOR, solo tienes que buscar en San Google lo siguiente:

Como imprimir con un botón dos hojas distintas de un libro+DANTE AMOR

Yo solo he adaptado lo que este fenómeno expone para que, en vez de imprimir, cree las hojas individuales. Espero que esto sea lo que querías. Salu2.

ENLACE

[Tienes que estar registrado y conectado para ver este vínculo]

albersil

Cantidad de envíos : 32
Fecha de inscripción : 30/01/2009

Volver arriba Ir abajo

Solucion al debate

Mensaje por Milton Cordova el Dom Sep 25, 2016 12:04 pm

invertigando he llegado a esta macro que es la solucion para lo buscado

Sub crearArchivos()
 Dim hoja As Worksheet
 Application.ScreenUpdating = False
 For Each hoja In ActiveWorkbook.Worksheets(Array(1, 2, 3))
 On Error Resume Next

 hoja.Copy
 ActiveWorkbook.SaveAs

 Next
End Sub

Doy por cerrado soluiconado este tema con este aporte

Milton

Milton Cordova

Masculino Cantidad de envíos : 22
Edad : 62
Ciudad - Pais : Quito - Ecuador
Version de Excel : 2003
Fecha de inscripción : 31/12/2009

Volver arriba Ir abajo

Re: Crear archivos desde hojas de un libro

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.