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

You may also like...

8 Responses

  1. Rogers Cordova says:

    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

    • sergioacamposh says:

      Debe ser lìnea por lìnea, para que se vaya capturando en el txt. Pero igual para eso puedes usar un For Next.

  2. memofe says:

    QUE BUEN TUTO!!!
    sencillo y conciso…
    Muchas gracias ahora a implementar con un for each y ya!!!!

  3. Guest says:

    ¿Dónde se guarda?

    • sergioacamposh says:

      En la siguiente línea se muestra la ruta donde quedaría el TXT.

      Open “c:datatextfile.txt” For Output As #1

Leave a Reply / Deja un comentario