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...

  • http://gravatar.com/gersonpineda12 gersonpineda12

    Muy bueno!

    Saludos

    • sergioacamposh

      Espero que les sea de utilidad.

  • Rogers Cordova

    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

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

  • http://gravatar.com/memofe memofe

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

    • http://about.me/sergioacamposh sergioacamposh

      Así es.

  • Guest

    ¿Dónde se guarda?

    • sergioacamposh

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

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

%d bloggers like this: