Como Importar Txt para Excel Vba

Para importar um arquivo de texto para o Excel usando VBA, siga estes passos:

1. Abra o Excel e crie um novo módulo VBA.

2. Digite o seguinte código para abrir o arquivo de texto:

Sub ImportTXT()

'Variáveis Dim strPath As String, strFileName As String

'Localização do arquivo de texto strPath = "C:\Users\usuario\Documents\" strFileName = "arquivo.txt"

'Abertura do arquivo de texto Open strPath & strFileName For Input As #1

End Sub

3. Adicione o seguinte código para ler as linhas do arquivo de texto:

Sub ImportTXT()

'Variáveis Dim strPath As String, strFileName As String Dim strLine As String

'Localização do arquivo de texto strPath = "C:\Users\usuario\Documents\" strFileName = "arquivo.txt"

'Abertura do arquivo de texto Open strPath & strFileName For Input As #1

'Ler as linhas do arquivo Do While Not EOF(1)Line Input #1, strLineDebug.Print strLine Loop

'Fechar o arquivo de texto Close #1

End Sub

4. Adicione o código para inserir os dados lidos do arquivo de texto em uma planilha do Excel:

Sub ImportTXT()

'Variáveis Dim strPath As String, strFileName As String Dim strLine As String Dim iRow As Integer

'Localização do arquivo de texto strPath = "C:\Users\usuario\Documents\" strFileName = "arquivo.txt"

'Abertura do arquivo de texto Open strPath & strFileName For Input As #1

'Ler as linhas do arquivo e inserir na planilha do Excel iRow = 1 Do While Not EOF(1)Line Input #1, strLineCells(iRow, 1).Value = strLineiRow = iRow + 1 Loop

'Fechar o arquivo de texto Close #1

End Sub

5. Salve e execute a macro. Os dados do arquivo de texto devem ser importados para a planilha do Excel.

Nota: Para importar arquivos de texto com delimitadores (como CSV), você precisará modificar o código para ler e separar os valores de cada linha usando o caractere delimitador específico.