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

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

%d bloggers like this: