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.