Crear archivos de texto masivamente

El lunes, 9 de julio de 2012 09:33:55 UTC+1, raper escribió:

¡ Hola a todos !

Soy nuevo en el uso de Excel y necesito ayuda para ver si es posible dar
solución a la siguiente cuestión:

En una única columna (A) tengo un listado de nombres que abarca 10350
filas y deseo que Excel (versión 2003) me guarde este listado, de forma
masiva, en 10350 archivos de texto independientes los unos de los otros, cada
archivo con su nombre correspondiente. ¿Es esto posible?


Desde ya, quedo muy agradecido por las posibles respuestas a mi pregunta.

Raper

Sí, es posible. Mediante una macro.

Algo así:


Sub guardaTexto()
ruta = ActiveWorkbook.Path 'Los guarda en la misma carpeta que el archivo original.
For a = 1 To 10350 'recorre las filas de la 1 a la 10350
nombreFichero = ruta & "\" & Range("A" & a).Value & ".txt"
ActiveWorkbook.SaveAs Filename:=nombreFichero, FileFormat:=xlText, CreateBackup:=False
Next a
End Sub

-

Esto guarda 10350 copias del mismo fichero pero con nombres distintos.
Los nombres los toma de lo que haya escrito en la columna A

No sé si es esto lo que necesitas, quizá no he entendido bien tu consulta.

Si quieres que el nombre se genere de otra forma, en plan... fichero1, fichero2, ...etc, házmelo saber, es fácil modificar la macro para hacerlo así.

De todas maneras te advierto, tener diez mil ficheros en una carpeta puede ser una locura, el windows se te va a quedar tonto intentando leer el directorio.



Saludos,
Pedro

Pedro F. Pardo escribió el 09/07/2012 11:31 :

El lunes, 9 de julio de 2012 09:33:55 UTC+1, raper escribió:

¡ Hola a todos !

Soy nuevo en el uso de Excel y necesito ayuda para ver si es posible dar
solución a la siguiente cuestión:

En una única columna (A) tengo un listado de nombres que abarca 10350
filas y deseo que Excel (versión 2003) me guarde este listado, de forma
masiva, en 10350 archivos de texto independientes los unos de los otros, cada
archivo con su nombre correspondiente. ¿Es esto posible?


Desde ya, quedo muy agradecido por las posibles respuestas a mi pregunta.

Raper

Sí, es posible. Mediante una macro.

Algo así:


Sub guardaTexto()
ruta = ActiveWorkbook.Path 'Los guarda en la misma carpeta que el archivo
original.
For a = 1 To 10350 'recorre las filas de la 1 a la 10350
nombreFichero = ruta & "" & Range("A" &
a).Value & ".txt"
ActiveWorkbook.SaveAs Filename:=nombreFichero, FileFormat:=xlText,
CreateBackup:=False
Next a
End Sub

-

Esto guarda 10350 copias del mismo fichero pero con nombres distintos.
Los nombres los toma de lo que haya escrito en la columna A

No sé si es esto lo que necesitas, quizá no he entendido bien tu
consulta.

Si quieres que el nombre se genere de otra forma, en plan... fichero1,
fichero2, ...etc, házmelo saber, es fácil modificar la macro para
hacerlo así.

De todas maneras te advierto, tener diez mil ficheros en una carpeta puede ser
una locura, el windows se te va a quedar tonto intentando leer el directorio.



Saludos,
Pedro

Muchísimas gracias, Pedro.

Voy a intentar cargar correctamente la macro que tan amablemente me has enviado. No sé si seré capaz de hacerlo bien. De todas formas, te informaré del resultado (con toda seguridad... para darte la lata con algo que haga mal).

Un fuerte abrazo y nuevamente ¡Gracias!

Raper

raper escribió el 09/07/2012 13:46 :

Pedro F. Pardo escribió el 09/07/2012 11:31 :

El lunes, 9 de julio de 2012 09:33:55 UTC+1, raper escribió:

¡ Hola a todos !

Soy nuevo en el uso de Excel y necesito ayuda para ver si es posible dar
solución a la siguiente cuestión:

En una única columna (A) tengo un listado de nombres que abarca 10350
filas y deseo que Excel (versión 2003) me guarde este listado, de
forma
masiva, en 10350 archivos de texto independientes los unos de los otros, cada
archivo con su nombre correspondiente. ¿Es esto posible?


Desde ya, quedo muy agradecido por las posibles respuestas a mi pregunta.

Raper

Sí, es posible. Mediante una macro.

Algo así:


Sub guardaTexto()
ruta = ActiveWorkbook.Path 'Los guarda en la misma carpeta que el archivo
original.
For a = 1 To 10350 'recorre las filas de la 1 a la 10350
nombreFichero = ruta & "" & Range("A" &
a).Value & ".txt"
ActiveWorkbook.SaveAs Filename:=nombreFichero, FileFormat:=xlText,
CreateBackup:=False
Next a
End Sub

-

Esto guarda 10350 copias del mismo fichero pero con nombres distintos.
Los nombres los toma de lo que haya escrito en la columna A

No sé si es esto lo que necesitas, quizá no he entendido bien tu
consulta.

Si quieres que el nombre se genere de otra forma, en plan... fichero1,
fichero2, ...etc, házmelo saber, es fácil modificar la macro
para
hacerlo así.

De todas maneras te advierto, tener diez mil ficheros en una carpeta puede ser
una locura, el windows se te va a quedar tonto intentando leer el directorio.



Saludos,
Pedro

Muchísimas gracias, Pedro.

Voy a intentar cargar correctamente la macro que tan amablemente me has
enviado. No sé si seré capaz de hacerlo bien. De todas formas, te
informaré del resultado (con toda seguridad... para darte la lata con
algo que haga mal).

Un fuerte abrazo y nuevamente ¡Gracias!

Raper

Hola Pedro:

Dije que te daría la lata y... eso hago.

Efectivamente, Pedro. Necesito que la macro permita generar 10350 ficheros "VACÍOS" con los 10350 nombres que hay escritos en cada una de las 10350 filas de la columna A.

En resumen, "NO" que cada fichero sea una copia de todo lo que hay en tal columna, si no que cada fichero sea un documento de texto vacío. De esta forma, la carpeta contenedora de estos archivos tendría un tamaño de 0 bytes y mi viejo Windows podría sobrevivir sin demasiado esfuerzo (si pudiera remitirte 2 imágenes me explicaría mucho mejor).

¿Me he explicado mejor esta vez... o la he liado todavía más?.

Un gran abrazo rogándote me ayudes.

Raper

raper escribió el 09/07/2012 10:33 :

¡ Hola a todos !

Soy nuevo en el uso de Excel y necesito ayuda para ver si es posible dar
solución a la siguiente cuestión:

En una única columna (A) tengo un listado de nombres que abarca 10350
filas y deseo que Excel (versión 2003) me guarde este listado, de forma
masiva, en 10350 archivos de texto independientes los unos de los otros, cada
archivo con su nombre correspondiente. ¿Es esto posible?


Desde ya, quedo muy agradecido por las posibles respuestas a mi pregunta.

Raper

Hola Pedro:

Sigo dándote la lata. Por favor, perdóname.

Cuando escribo la macro en Microfoft Visual Basic e intento ejecutarla el programa me da el siguiente mensaje de error:

Se ha producido el error '9' en tiempo de ejecución:
Subíndice fuera del intervalo

y hace referencia a la línea:

nombreFichero = ruta & "\" & Sheets("Sheet1").Range("A" & a).Value & ".txt"

¿Puedes tú ver cual es el error? Gracias Pedro.

Un saludo.

Raper

raper escribió el 10/07/2012 11:23 :

raper escribió el 09/07/2012 10:33 :

¡ Hola a todos !

Soy nuevo en el uso de Excel y necesito ayuda para ver si es posible dar
solución a la siguiente cuestión:

En una única columna (A) tengo un listado de nombres que abarca 10350
filas y deseo que Excel (versión 2003) me guarde este listado, de forma
masiva, en 10350 archivos de texto independientes los unos de los otros, cada
archivo con su nombre correspondiente. ¿Es esto posible?


Desde ya, quedo muy agradecido por las posibles respuestas a mi pregunta.

Raper

Hola Pedro:

Sigo dándote la lata. Por favor, perdóname.

Cuando escribo la macro en Microfoft Visual Basic e intento ejecutarla el
programa me da el siguiente mensaje de error:

Se ha producido el error '9' en tiempo de ejecución:
Subíndice fuera del intervalo

y hace referencia a la línea:

nombreFichero = ruta & "" &
Sheets("Sheet1").Range("A" & a).Value &
".txt"

¿Puedes tú ver cual es el error? Gracias Pedro.

Un saludo.

Raper

Estimado Pedro:

¡FABULOSO!, ha funcionado a la perfección. No puedes darte una idea del gran favor que me has hecho, por lo cual quedaré siempre en deuda contigo.

Nuevamente, Pedro, muchísimas gracias. Y no lo dudes, cuando vuelva a tener un problema con Excel… otra vez te daré la lata.

Un fuerte abrazo

Raper