Um arquivo do tipo .csv pode ser considerado um paralelo ao arquivo de texto do bloco de notas, na realidade se vc separar um texto qq por ponto e vírgula no bloco de notas e depois salvar como .csv estará tudo certo.

Portanto a resposta q vc procura é a de como abrir um arquivo .csv no Excel. Ha, mas o arquivo tem terminação .txt, muda! Troca por .csv e assunto encerrado.

@celri_33 

Como citou bloco de notas deve ser um texto (.txt, .csv, etc..)

Se for um texto com as colunas separados por algum delimitador (.csv) pode apenas importar, sem VBA.

Se o texto não tiver esses delimitadores provavelmente vai conseguir importar com VBA e capturar o trecho de conteudo que deseja.

De toda forma em nenhum destes casos precisa abrir com bloco de notas pra captura algo.

Anexe o arquivo pra uma melhor análise.

Uma maneira simples por VBA (já que a postagem foi endereçada a essa sala) e se seu TXT for texto comum ASC-II/ANSI, seria:

Colocar o conteúdo do TXT todo numa única célula (A1 da planilha ativa, nesse caso):

Sub ArqTxtNumaCélula()
  Open "C:\Users\Celri33\Desktop\NomeArquivo.txt" For Input As #1
    [A1].Value = Input(LOF(1), #1)
  Close #1
End Sub

Colocar cada linha numa célula (da A1 em diante):

Sub ArqTxtLinhaALinha()
  Dim LinhaTexto As String, i As Long
  Open "C:\Users\Celri33\Desktop\NomeArquivo.txt" For Input As #1
  Do While Not EOF(1)
    i = i + 1
    Line Input #1, LinhaTexto
    Cells(i, 1) = LinhaTexto
  Loop
  Close #1
End Sub

Bom dia Galera.

Desculpe a demora para o retorno, mas o meu problema maior é realmente abrir o arquivo como TXT (Bloco de Notas)

O arquivo já é CSV, mas tem o velho problema de limitador de caracteres, ai quando abro esse arquivo como bloco de notas, consigo ver no caso, os 44 caracteres que preciso:

Dai era só copiar do bloco de notas pro Excel...segue anexo exemplo:

Segue anexo o arquivo cvs.

Sub ArqTxtLinhaALinha()
  Dim LinhaTexto As String, i As Long
  Open "C:\Users\Celri33\Desktop\Pasta3.csv" For Input As #1
  Do While Not EOF(1)
    i = i + 1
    Line Input #1, LinhaTexto
    With Range(Cells(i, 1), Cells(i, 7))
      .Cells(1).NumberFormat = "@"
      .Value = Split(LinhaTexto, ";")
    End With
  Loop
  Close #1
End Sub

Se quiser só abrir o csv no Bloco de Notas:

Sub AbreArqNoBlocoDeNotas()
  Shell ("Notepad.exe C:\Users\Celri33\Desktop\Pasta3.csv")
End Sub

Bom dia a todos!
Obrigado novamente, Edson, muito obrigado, chega até ser redundante mas só tenho a agradecer, funcionou direitinho....

Tks

Veja como fica o seu arquivo abrindo com o Power Query, sem programação alguma.

Olá Djunqueira, boa tarde.

Essa foi a minha primeira idéia, porém nem todos na empresa tem um office superior ou igual a 2016, a maioria usa o 2010 que se não me engano, não tem como usar o Power Query.

Mesmo assim, obrigado pela atenção.

Tanto o Excel 2010 quanto o 2013 podem instalar o Power Query, o q recomendo fortemente, é só procurar no Youtube o passo a passo.

@dmorais 

Show, essa eu não sabia, valeu!