Cleiton,

Seu caso é curioso porque além da importação vc precisa transformar os dados "crus" em relatório para análise.

Pois bem, o que o arquivo anexo faz é o seguinte:

1 - vc define na planilha o caminho e o nome do arquivo (cél amarela).
2 - a macro traz os dados separados pelos limitadores de campos nela definidos (vc tem que revisar pois com um só txt não consigo visualizar todas as possibilidades)
3 - feito isso as fórmulas agrupam/ordenam/classificam os registros que interessam
4 - por fim, uma nova aba é criada (nome=data) para copiar e colar os valores do relatório.
5 - vc pode importar diariamente pois trata-se de modelo e está preparado para a rotina.
6 - ordenei alfabeticamente tb pra facilitar a visualização/análise.

Me avise. Sou meio mongo com macros mas acho que tá funcionando legal.

Maneiro esse post.

Abs,

Ficou muito bom essa planilha, só pra arredondar, fechar com chave de ouro, não teria como ao invés de fazer o caminho do arquivo na celula, abrir uma caixa para mim localizar o arquivo, acontece que o arquivo cada hora ele vem com um nome diferente, ai vou terq ficar entrando na pasta da rede e renomear o txt, agora se não tiver como, vc já ajudou eu e muitoooooo!!!

Obrigado MANDRIX

Vc não tem que renomear o arquivo na rede. Vc tem que estabelecer o nome correto na célula amarela.

Sacou?

Se naão avançar avise.

Abs,

Eu entendi sim MANDRIX, valeu pela dica, só queria dar um efeito especial na plan srsrsr, até consegui fazer que propuz, ficou show de mais essa plan, obrigado pela ajuda.

Era isso aqui que pretendia

Option Explicit

Private Sub CommandButton1_Click()
Dim QualArquivo
QualArquivo = Application.GetOpenFilename("Arquivos de texto (*.PRN),*.PRN", , "Escolha o arquivo para Desproteger") 'Caixa de Dialogo Abrir
Plan10.Range("O1") = QualArquivo
End Sub

Abrass!!

Ficou show mesmo. Boa sacada essa tua...

Abs,