Saberexcel - o site das macros

Este exemplo Microsoft Excel VBA(Visual Basic Application), 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 tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




    Baixe o exemplo de planilha da macro acima
 Excel planilha vba arquivo texto abre um arquivo texto no excel (23.89 kB)