Índice
Este tutorial demonstrará como usar o método OpenTextFile do FileSystemObject.
Abra um arquivo de texto
Esta lição usa o FileSystemObject. Para usá-lo, você precisará definir uma referência para a biblioteca de tempo de execução do script VB. Veja aqui para mais informações.
Você pode abrir um arquivo de texto existente para leitura:
| 1 | Set FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading) |
e cole seu conteúdo na primeira célula da planilha atual, por exemplo:
| 12345678910 | Sub FSOReadFromTextFile ()Dim FSO As New FileSystemObjectDefina FSO = CreateObject ("Scripting.FileSystemObject")Set FileToRead = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForReading)TextString = FileToRead.ReadAllFileToRead.CloseThisWorkbook.Sheets (1) .Range ("A1"). Value = TextStringEnd Sub |
Para obter mais opções com o modo ForReading, clique aqui.
No modo de escrita, você pode substituir o conteúdo de um arquivo existente por novos dados, mas não pode ler o arquivo.
| 123456789 | Sub FSOWriteToTextFile ()Dim FSO As New FileSystemObjectDefina FSO = CreateObject ("Scripting.FileSystemObject")Set FileToWrite = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForWriting)FileToWrite.Write "linha de teste"FileToWrite.CloseEnd Sub |
Para mais opções com o modo ForWriting, clique aqui.
No modo ForAppending, você pode gravar no final do arquivo. Você não pode ler este arquivo.
| 123456789 | Sub FSOAppendToTextFile ()Dim FSO As New FileSystemObjectDefina FSO = CreateObject ("Scripting.FileSystemObject")Set FileToAppend = FSO.OpenTextFile ("C: \ Test \ TestFile.txt", ForAppending)FileToAppend.Write "conteúdo anexado"FileToAppend.CloseEnd Sub |
