Escribir datos en un archivo de texto desde Excel con vba
Expongo un pequeño ejemplo sobre cómo escribir datos desde Excel a un archivo de Texto.
El usuario podrá utilizar es libre de utilizar For, Do Loop, While, etc.
Sub EscribirEnArchivoTxt() Open "c:datatextfile.txt" For Output As #1 Print #1, ActiveSheet.Range("A1").Value Print #1, ActiveSheet.Range("A2").Value Print #1, ActiveSheet.Range("A3").Value Close #1 End Sub
Muy bueno!
Saludos
Espero que les sea de utilidad.
Necesito compiar un rango o una seleccion de celdas, lo puedo hacer en bloque (en conjunto) o solo puedo uno por uno? mil gracias que buen Blog
Debe ser lìnea por lìnea, para que se vaya capturando en el txt. Pero igual para eso puedes usar un For Next.
QUE BUEN TUTO!!!
sencillo y conciso…
Muchas gracias ahora a implementar con un for each y ya!!!!
Así es.
¿Dónde se guarda?
En la siguiente línea se muestra la ruta donde quedaría el TXT.
Open “c:datatextfile.txt” For Output As #1