Como abrir um arquivo de texto usando vba (com exemplo)

Você pode usar o método OpenTextFile no VBA para abrir um arquivo de texto a partir de um caminho de arquivo específico.

Aqui está uma maneira comum de usar esse método na prática:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

Esta macro específica lê o arquivo de texto chamado MyTextFile.txt localizado na área de trabalho do meu computador e exibe o conteúdo do arquivo na célula A1 .

O exemplo a seguir mostra como usar essa sintaxe para ler um arquivo de texto na prática.

Exemplo: como abrir um arquivo de texto usando VBA

Digamos que temos um arquivo de texto chamado MyTextFile.txt localizado na área de trabalho que gostaríamos de ler no Excel usando VBA.

Aqui está o conteúdo do arquivo:

Antes de usar o VBA para ler este arquivo, devemos primeiro habilitar o Microsoft Scripting Runtime no editor VB.

Para fazer isso, abra o editor VB, clique em Ferramentas e em Referências :

Na nova janela que aparece, role para baixo até ver Microsoft Scripting Runtime e marque a caixa ao lado dele. Em seguida, clique em OK .

Então podemos criar a seguinte macro para ler um arquivo de texto:

 SubReadTextFile ()

Dim FSO As New FileSystemObject
Set FSO = CreateObject(" Scripting.FileSystemObject ")
    
'specify path to text file
Set MyTextFile = FSO.OpenTextFile(" C:\Users\bob\Desktop\MyTextFile.txt ", ForReading)
   
'open text file and display contents in cell A1
TxtString = MyTextFile.ReadAll
MyTextFile.Close
ThisWorkbook.Sheets(1).Range(" A1 ").Value = TxtString

End Sub

Assim que esta macro for executada, o conteúdo do arquivo de texto chamado MyTextFile.txt será exibido na célula A1 :

Observe que o conteúdo da célula A1 corresponde ao conteúdo do arquivo de texto.

Nota : Você pode encontrar a documentação completa do método OpenTextFile aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns em VBA:

Como criar pastas usando VBA
Como deletar pastas usando VBA
Como excluir arquivos usando VBA