Jump to content
Fórum Script Brasil
  • 0

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.


Question

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

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148953
    • Total Posts
      645027
×
×
  • Create New...