Ir para conteúdo
Fórum Script Brasil

Luiz Antonio Pereira

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que Luiz Antonio Pereira postou

  1. 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
×
×
  • Criar Novo...