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
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.
em VBA
Postado
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