AYUDA CON EXEL

21/11/2007 - 18:06 por luis2222_2 | Informe spam
Como estan todos mi problema es el siguiente:

1. Tengo 14 archivo de exel con 400 hojas cada uno y tengo convertir
cada hoja en un libro distinto para que cada archivo de exel se me
convierta en 400 libros

2. Lo que yo quisiera es saber como lo puedo hacer de una manera mas
tecnica, en el cual el nombre de la hoja se convierta en el nombre del
archivo y si se puede realizar un desagrupamiento de todas de una sola
vez, enves de hacerlo una por una.


Gracias su atencion

Att. Luis Gabriel

Preguntas similare

Leer las respuestas

#1 luis2222_2
21/11/2007 - 19:39 | Informe spam
On 21 nov, 11:06, wrote:
Como estan todos mi problema es el siguiente:

1. Tengo 14 archivo de exel con 400 hojas cada uno y tengo convertir
cada hoja en un libro distinto para que cada archivo de exel se me
convierta en 400 libros

2. Lo que yo quisiera es saber como lo puedo hacer de una manera mas
tecnica, en el cual el nombre de la hoja se convierta en el nombre del
archivo y si se puede realizar un desagrupamiento de todas de una sola
vez, enves de hacerlo una por una.

Gracias su atencion

Att. Luis Gabriel
Respuesta Responder a este mensaje
#2 Héctor Miguel
21/11/2007 - 21:17 | Informe spam
hola, Luis Gabriel !

1. Tengo 14 archivo de exel con 400 hojas cada uno y tengo convertir cada hoja en un libro distinto
para que cada archivo de exel se me convierta en 400 libros
2. Lo que yo quisiera es saber como lo puedo hacer de una manera mas tecnica
en el cual el nombre de la hoja se convierta en el nombre del archivo
y si se puede realizar un desagrupamiento de todas de una sola vez, enves de hacerlo una por una.



suponiendo que no habra problemas de nombres duplicados entre las hojas de varios libros -?-
y asumiendo que cada nueva hoja-libro se puede guardar en el mismo directorio que el original -?-
prueba con una macro +/- como la siguiente (la ejecutas por cada uno de tus 14 archivos)...

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.
Respuesta Responder a este mensaje
#3 luis2222_2
03/12/2007 - 02:52 | Informe spam
Que te puedo decir hector eres un genio, no sabes que util me resulto
tu macro,

Gracias por tu ayuda.

Att. Luis Gabriel
Respuesta Responder a este mensaje
#4 luis2222_2
03/12/2007 - 02:56 | Informe spam
Gracias por tu apoyo hector, exelente macro ademas trabaja muy
exelente tambien en office 2007


att. Luis Gabriel
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida