Detalhes de vba arquivo texto abre um arquivo texto no excel

Este exemplo Microsoft Excel VBA, abre um arquivo txt e importa os dados para coluna(A) de uma determinada folha de Planilha. observe que no arquivo texto onde for usado a virgula para separação de palavras, é inserido automaticamente uma quebra de linha.
Observe que a macro busca os dados em um arquivo texto no Path(Diretório) Ativo, e já inseri um arquivo texto no path do exemplo chamado Dados.txt

Sub Abrindo_um_arquivo_txt()
Dim Relacao, Numero, Localizacao

Saber1.Columns(1).ClearContents

Localizacao = 2

Open ThisWorkbook.Path & "\Dados.txt" For Input As #1 ' Abre o arquivo para entrada dos dados.

Do While Not EOF(1) ' EOF(1)>>Faz o loop ate o fim do arquivo.
Input #1, Relacao ' memoriza os dados para a variável.
Saber1.Cells(Localizacao, 1) = Relacao '
Localizacao = Localizacao + 1
Loop

Close #1 ' Fecha o arquivo txt
Saber1.[A1].Value = "ABRINDO E EXTRAINDO DADOS DE UM ARQUIVO TXT"
End Sub

Sub LIMPAR()
[A1:A30].ClearContents
End Sub



Aprenda Microsoft Excel VBA ---(SaberExcel)-- o site das macros
Aprenda sozinho, em casa, com seu esforço, com baixo custo.
Tudo que voce puder imaginar em excel vba, poderá encontrar neste site.