capturar no access um arquivo txt com duas colunas, lendo toda a coluna 1, voltar ao inicio da pagina e depois ler toda a coluna 2.

[Luiz Antonio Pereira]

Srs. noite

Tenho um modulo de importação de txt para tabelas do access, apareceu a necessidade de importar um arquivo que possui duas colunas, sendo que a segunda inicia quando a primeira acaba, ou seja, tenho que ler todos os registros da primeira coluna, voltar ao inicio da pagina e ler todos os registros da segunda coluna, depois disso vou para a próxima pagina. Se puderem me ajudar, utilizo o código abaixo

Sub C_Importar_QQWL001(NomeArquivo As String)

Dim db As Database

Dim tb As Recordset

Dim strLinha As String

Dim dblCont As Double

Dim pbTime As String

Dim CD_TRANS As String 

Set db = CurrentDb()

Set tb = db.OpenRecordset("04_QQWL_TRANSACOES_DEBITO_ELO") 

Open NomeArquivo For Input As #1

Line Input #1, strLinha       

Do

    With tb

ini:

    If Trim(Mid(strLinha, 14, 11)) = "TOTAL GERAL" Then

    GoTo fim:

    End If

   

    If Trim(Mid(strLinha, 14, 12)) = "SUB-TOT PROD" Then

    Line Input #1, strLinha

    GoTo ini:

    End If

 

   

    If Trim(Mid(strLinha, 3, 1)) = "/" Then

    DT_VENCIMENTO = Trim(Mid(strLinha, 1, 10))

    PRODUTO = Trim(Mid(strLinha, 14, 30))

    Line Input #1, strLinha

    GoTo ini:

    End If

   

    If Trim(Mid(strLinha, 73, 1)) = "," Then

    TC = Trim(Mid(strLinha, 16, 16))

    QTDE = Trim(Mid(strLinha, 80, 18))

    VALOR_FAT = Trim(Mid(strLinha, 57, 19))

    COMISSAO = Trim(Mid(strLinha, 99, 15))

    VALOR_LIQ = Trim(Mid(strLinha, 117, 16))

    y = y + 1

          

    tb.AddNew

   

    tb!RELATORIO = RELATORIO

    tb!DT_RELATORIO = DT_RELATORIO

    tb!ADQUIRENTE = ADQUIRENTE

    tb!DT_VENCIMENTO = DT_VENCIMENTO

    tb!PRODUTO = PRODUTO

    tb!EMISSOR = EMISSOR

    tb!TC = TC

    tb!QTDE = QTDE

    tb!VALOR_FAT = VALOR_FAT

    tb!COMISSAO = COMISSAO

    tb!VALOR_LIQ = VALOR_LIQ

    tb!seq = y

    tb.Update

    Else

    'Line Input #1, strLinha

    'GoTo ini:

    End If

   

    

    End With

   

    Line Input #1, strLinha

   

 

Loop Until EOF(1)

 

fim:

 

    'Fechando o arquivo :

 

    Close #1

[Alyson Ronnan Martins]

Boa tarde @Luiz Antonio Pereira

Eu li seu código porém não entendi aonde esta a segunda coluna que esta procurando, teria como enviar via google drive um arquivo de texto para ser exemplo e seu macro VBA para simular e entender melhor qual dado não esta indo?

Pode informar valores fictícios apenas para estudo do código.