VBA - Ler Txt e printar no excel

[Gustka]

Bom dia caros,

preciso fazer o seguinte, tenho um .txt com uma linha com diversas informações "repetidas" 5 a 5. Por exemplo; primeira palavra: nome, segunda: sobrenome, terceira: telefone, quarta: email, quinta: endereço. Isso repete a cada 5 palavras da linha, caso nao tenha alguma informação, por exemplo telefone, existe um tab na linha, representando o vazio.

Preciso fazer um código que leia as 5 primeiras palavras, print em uma linha no excel, leia as proximas 5 palavras, print na linha de baixo e assim sucessivamente.

Não sei se fui claro, mas acho q sim, rs

Desde já obrigado pela ajuda.

[Eduardo Chamon]

Olá

Crie um botão e coloque o código abaixo.

Set oSistemaArquivo = CreateObject("Scripting.FileSystemObject")

Set arquivo = oSistemaArquivo.OpenTextFile("enderco completo de seu arquivo", 1, False, -2)

i = 0

Do While arquivo.AtEndOfStream <> True

i = i + 1

vetor = Split(arquivo.ReadLine, Chr(9))

Sheets(1).Cells(i, 1).Value = vetor(0)

Sheets(1).Cells(i, 2).Value = vetor(1)

Sheets(1).Cells(i, 3).Value = vetor(2)

Sheets(1).Cells(i, 4).Value = vetor(3)

Sheets(1).Cells(i, 5).Value = vetor(4)

Loop

abs

Eduardo - www.ensinandoexcel.com.br

[Gustka]

Olá Eduardo, obrigado pela ajuda, só estou com um problema, tem uma parte da linha q eu tenho 2 tabs seguidos, o que significa q um dos campos é vazio, e o loop esta parando nessa parte, sabe me dizer o porque?

Mais uma vez obrigado pela ajuda.

Opa, conseguimos adaptar o código aqui, muito obrigado pela ajuda Eduardo.