[Resolvido]Importar Arquivos de Texto

Pessoal,
Bom dia!

Estou tentando fazer um trabalho no Access, porem estou com uma duvida.
Preciso importar um arquivo de texto (.txt) separado por tabulação, porem ele tem duas estruturas de linhas.

Ex:

01 000000000000001 201207171300 0000000000001
02 000001 00000000000001 000000000000 000000000000
02 000002 00000000000001 000000000000 000000000000
02 000003 00000000000001 000000000000 000000000000
01 000000000000002 201207171315 0000000000002
02 000001 00000000000001 000000000000 000000000000
02 000002 00000000000001 000000000000 000000000000
02 000003 00000000000001 000000000000 000000000000

Grato,

Olá

Segue um exemplo de um estrutura para percorrer pelas linhas de um texto.

tente então adaptar ao seu caso:

Código:

Private Sub Command0_Click()
Dim f As Long
Dim strText As String
Dim strOut As String
On Error GoTo TrataErro
Dim linha As Integer
f = FreeFile
'Arquivo TXT na mesma pasta do BD
Open CurrentProject.Path & "\recolhimento transportadora.txt" For Input As f
linha = 1
  Do While Not EOF(f)
      Line Input #f, strText
        If linha = 1 Then
            Me!TipoDeRegistro = Mid(strText, 1, 2)
            Me!DataDaTransmissão = Mid(strText, 3, 8)
            Me!HoraDaTransmissão = Mid(strText, 11, 6)
            Me!CNPJTransportadora = Mid(strText, 17, 15)
            Me!NomeDaTranportadora = Trim(Mid(strText, 32, 40))
        End If
        If linha = 2 Then
        'Aqui vc extrai valores da linha 2
        End If
       
        If linha = 3 Then
        'aqui vc extrai valores da linha 3
        End If
        linha = linha + 1
      strOut = strOut & strText & vbCrLf
  Loop

  strOut = ""
  strText = ""
  f = FreeFile
Sair:
  Exit Sub
TrataErro:
        MsgBox "Erro: " & Err.Number & vbCrLf & Err.Description, vbCritical, "Aviso", Err.HelpFile, Err.HelpContext
                Resume Sair:
End Sub

Bom estudo!

Ola Avelino,

Obrigado,

Vou tentar adptar.