Este tutorial demostrará cómo utilizar el método OpenTextFile del FileSystemObject.
Abrir un archivo de texto
Esta lección usa FileSystemObject. Para usarlo, deberá establecer una referencia a la biblioteca de tiempo de ejecución de secuencias de comandos de VB. Consulte aquí para obtener más información.
Puede abrir un archivo de texto existente para leerlo:
1 | Establecer FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
y luego pegue su contenido en la primera celda de la hoja de trabajo actual, por ejemplo:
12345678910 | Sub FSOReadFromTextFile ()Atenuar FSO como nuevo FileSystemObjectEstablecer FSO = CreateObject ("Scripting.FileSystemObject")Establecer FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
Para obtener más opciones con el modo ForReading, consulte aquí.
En el modo ForWriting, puede reemplazar el contenido de un archivo existente con datos nuevos, pero no puede leer el archivo.
123456789 | Sub FSOWriteToTextFile ()Atenuar FSO como nuevo FileSystemObjectEstablecer FSO = CreateObject ("Scripting.FileSystemObject")Establecer FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "línea de prueba"FileToWrite.CloseEnd Sub |
Para obtener más opciones con el modo ForWriting, consulte aquí.
En el modo ForAppending, puede escribir hasta el final del archivo. No puedes leer de este archivo.
123456789 | Sub FSOAppendToTextFile ()Atenuar FSO como nuevo FileSystemObjectEstablecer FSO = CreateObject ("Scripting.FileSystemObject")Establecer FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "contenido adjunto"FileToAppend.CloseEnd Sub |