Crear archivos de texto. Cada uno con su correspondiente texto.

El jueves, 12 de julio de 2012 15:01:01 UTC+1, raper escribió:

Hola a todos (especialmente a Pedro F. Pardo):

En la columna A tengo todos los nombres de archivos de texto que quiero crear.
En la columna B tengo todos los textos correspondientes a cada uno de esos
archivos.

ￜPuedo ￜmeterￜ con Excel los textos en los archivos y guardar
ï¿œstos masivamente?

Gracias anticipadas.

Raper

Hola Raper :-)

Es muy sencillo, para escribir en un fichero tan solo tienes que utilizar la función Print

Print #1, "EL texto que quieras guardar"

Simplemente hay que añadir una línea a la función que ya teníamos...

Sub guardaTexto()
ruta = ActiveWorkbook.Path
For a = 1 To 10 'recorre las filas de la 1 a la 10
nombreFichero = ruta & "\" & Range("A" & a).Value & ".txt"
Open nombreFichero For Output As #1
Print #1, Range("B" & a).Value 'Esta es la nueva línea.
Close #1
Next a
End Sub



Recuerda, hazlo para 10 y si funciona cambia el 10 por el número que quieras.

Saludos,
Pedro

Pedro F. Pardo escribió el 12/07/2012 22:54 :

El jueves, 12 de julio de 2012 15:01:01 UTC+1, raper escribió:

Hola a todos (especialmente a Pedro F. Pardo):

En la columna A tengo todos los nombres de archivos de texto que quiero crear.
En la columna B tengo todos los textos correspondientes a cada uno de esos
archivos.

ￜPuedo ￜmeterￜ con
Excel los textos en los archivos y guardar
ï¿œstos masivamente?

Gracias anticipadas.

Raper

Hola Raper :-)

Es muy sencillo, para escribir en un fichero tan solo tienes que utilizar la
función Print

Print #1, "EL texto que quieras guardar"

Simplemente hay que añadir una línea a la función que ya
teníamos...

Sub guardaTexto()
ruta = ActiveWorkbook.Path
For a = 1 To 10 'recorre las filas de la 1 a la 10
nombreFichero = ruta & "" & Range("A" &
a).Value & ".txt"
Open nombreFichero For Output As #1
Print #1, Range("B" & a).Value 'Esta es la nueva línea.
Close #1
Next a
End Sub



Recuerda, hazlo para 10 y si funciona cambia el 10 por el número que
quieras.

Saludos,
Pedro

¡Hola Pedro!

Otra vez con problemas.

Cuando pretendo ejecutar la macro en Visual Basic me aparece el siguiente mensaje de error:

Error de compilación:
El procedimiento externo no es válido

y en la primera línea, donde dice: Print #1, "EL texto que quieras guardar", el número 1 se enmarca en azul.

¿Puedes detectar dónde está el problema?

Un abrazo,

Raper

raper escribió el 13/07/2012 11:13 :

Pedro F. Pardo escribió el 12/07/2012 22:54 :

El jueves, 12 de julio de 2012 15:01:01 UTC+1, raper escribió:

Hola a todos (especialmente a Pedro F. Pardo):

En la columna A tengo todos los nombres de archivos de texto que quiero
crear.
En la columna B tengo todos los textos correspondientes a cada uno de esos
archivos.

ￜPuedo ￜmeterￜ
con
Excel los textos en los archivos y guardar
ï¿œstos masivamente?

Gracias anticipadas.

Raper

Hola Raper :-)

Es muy sencillo, para escribir en un fichero tan solo tienes que utilizar la
función Print

Print #1, "EL texto que quieras guardar"

Simplemente hay que añadir una línea a la función que ya
teníamos...

Sub guardaTexto()
ruta = ActiveWorkbook.Path
For a = 1 To 10 'recorre las filas de la 1 a la 10
nombreFichero = ruta & "" & Range("A" &
a).Value & ".txt"
Open nombreFichero For Output As #1
Print #1, Range("B" & a).Value 'Esta es la nueva línea.
Close #1
Next a
End Sub



Recuerda, hazlo para 10 y si funciona cambia el 10 por el número que
quieras.

Saludos,
Pedro

¡Hola Pedro!

Otra vez con problemas.

Cuando pretendo ejecutar la macro en Visual Basic me aparece el siguiente
mensaje de error:

Error de compilación:
El procedimiento externo no es válido

y en la primera línea, donde dice: Print #1, "EL texto que quieras
guardar", el número 1 se enmarca en azul.

¿Puedes detectar dónde está el problema?

Un abrazo,

Raper

Estimado Pedro:

no hagas caso de mi anterior mensaje. La macro va perfecta. Quien no funciona a la perfección soy yo. No sé si achacarlo a una temprana destrucción de neuronas o que ya, a mis 76 años, no estoy capacitado para aprender cosas que son patrimonio de la gente joven e inteligente.

Te repito ¡¡¡VA PERFECTA!!!

Mil gracias y hasta otra metida de pata.

Raper