[Resolvido]Importar arquivo TXT.

Amigos, boa tarde!

Estou tentando importar um arquivo txt sem delimitador, apenas com tabulação.

Tento importar nome do cliente e outros campos, mas não está dando certo, porque a quantidade de caracter entre cada nome é diferente e os campos não estão em uma posição fixa.

Alguém pode me auxiliar?

Segue exemplo: https://www.dropbox.com/s/09av06v19m1whl7/Importar%20TXT.rar?dl=0

Código:

Dim db As DAO.Database, rs As DAO.Recordset
Dim Arquivo As Integer
Dim CaminhoArquivo As String
Dim TextoArquivo As String
Dim TextoProximaLinha As String
Dim ContadorLinha As Long

'Configura a leitura do arquivo
Arquivo = FreeFile
CaminhoArquivo = "C:\Users\WAGOMES\Desktop\Importar TXT\producao_112019.txt"

'Abre o arquivo para leitura
Open CaminhoArquivo For Input As Arquivo
ContadorLinha = 1
'Lê o conteúdo do arquivo linha a linha
Set rs = CurrentDb.OpenRecordset("Recebido") 'é mais simples

    Do While Not EOF(Arquivo)
        Line Input #Arquivo, TextoProximaLinha
        TextoProximaLinha = TextoProximaLinha & vbCrLf
        TextoArquivo = TextoArquivo & TextoProximaLinha
    On Error Resume Next
        rs.AddNew
        rs!nomeBeneficiario = Mid(TextoProximaLinha, 46, 22)
        rs!numeroCarteira = Mid(TextoProximaLinha, 30, 13)
        rs!senhaAutorizacao = Mid(TextoProximaLinha, 8, 8)
        rs!dataHoraInternacao = Mid(TextoProximaLinha, 17, 10)
        rs.Update
    Loop

  'Coloca na janela de verificação imediata
    MsgBox TextoArquivo
 
    'Fecha o arquivo
    Close Arquivo


Seu problema não está no código, está no TXT. Nem tem delimitador nem largura fixa nos campos. Parece ter sido convertido de PDF pra TXT.

Justamente,

Ele foi convertido de PDF pra TXT e tem apenas tabulações.

Como não consegui importar PDF para tabela access, resolvi converter para importar.

Algum avanço aqui?

Aguardamos...

Aqui já foi resolvido sim.