VBA Abrir Archivo de Texto con OpenTextFile

Este tutorial mostrará cómo utilizar el método OpenTextFile del objeto FileSystemObject.

Abrir un Archivo de Texto

Esta lección utiliza el objeto FileSystemObject. Para utilizarlo, necesitará establecer una referencia a la biblioteca en tiempo de ejecución de scripts VB. Consulte aquí para obtener más información.

Puede abrir un archivo de texto existente para su lectura:

Set FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading)

y luego pegar su contenido en la primera celda de la hoja de cálculo actual, por ejemplo

Sub FSOReadFromTextFile() 
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileToRead = FSO.OpenTextFile("C:\Test\TestFile.txt", ForReading)

    TextString = FileToRead.ReadAll
    FileToRead.Close
    ThisWorkbook.Sheets(1).Range("A1").Value = TextString

End Sub

Para más opciones con el modo ForReading vea aquí.

En el modo ForWriting puede reemplazar el contenido de un archivo existente con nuevos datos, pero no puede leer desde el archivo.

Sub FSOWriteToTextFile() 
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileToWrite = FSO.OpenTextFile("C:\Test\TestFile.txt", ForWriting)

    FileToWrite.Write "test line”
    FileToWrite.Close

End Sub

Para más opciones con el modo ForWriting ver aquí.

En el modo ForAppending puede escribir hasta el final del archivo. No se puede leer desde este archivo.

Sub FSOAppendToTextFile() 
    Dim FSO As New FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set FileToAppend = FSO.OpenTextFile("C:\Test\TestFile.txt", ForAppending)

    FileToAppend.Write "appended content"
    FileToAppend.Close

End Sub