IMPORTACAO ARQUIVO TXT APARTIR DA SEGUNDA LINHA

XXXANGELSXXX 03/08/2010 14:13:35
#349284
Boa Tarde, Amigos, vejam só, estou querendo importar um arquivo txt aqui, so que quero começar a importaçao apartir da segunda linha do arquivo.. nao quero importar o cabeçalho, e como o arquivo texto vem para mim ja pronto, a ultima linha sempre vem em branco, entao da o erro numero 9, como eu faço para chegar na ultima linha que contem dados o sistema para de importar, evitando assim o erro? se tiver como fazer so para importar apartir da segunda linha ja adianta muito.
JONATHANSTECKER 03/08/2010 14:28:00
#349286
Como você está fazendo para importar esse txt?
Poste o código que você já tem pronto que ajustaremos ele para você.

Jonathan Stecker
XXXANGELSXXX 03/08/2010 17:42:21
#349322 
 

Sub ImportaProdutos()
    On Error GoTo ErrorLine
    If txtAnexo.Text = Empty Then
        MsgBox [Ô]Selecione o Arquivo para Importação![Ô], vbCritical, [Ô]Tech Size[Ô]
        Exit Sub
    Else
        Dim Coluna() As String
        Dim Verifica() As String
        Dim F As Long, sLine As String

        F = FreeFile
        Open txtAnexo.Text For Input As F
        Do While Not EOF(F)
            Line Input #F, sLine
            Coluna = Split(sLine, [Ô];[Ô])

            Set rsConf = New ADODB.Recordset

            rsConf.Open [Ô]SELECT * FROM produtoseservicosporcliente where prodservserial=[ô][Ô] & Coluna(11) & [Ô][ô][Ô], Conexao, adOpenStatic, adLockReadOnly
            If rsConf.EOF Then
                strsql = [Ô]INSERT INTO produtoseservicosporcliente([Ô]
                strsql = strsql & [Ô]prodservcliente,prodservvalorcct,prodservserial,prodservdtaaquis,[Ô]
                strsql = strsql & [Ô]prodscdreduzido)[Ô]
                strsql = strsql & [Ô] Values ([ô][Ô]
                strsql = strsql & Format(Coluna(0), [Ô]000000[Ô]) & [Ô][ô],[ô][Ô]
                strsql = strsql & Replace(Coluna(10), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[ô][Ô]
                strsql = strsql & Coluna(11) & [Ô][ô],[ô][Ô]
                If Coluna(12) = [Ô][Ô] Then
                    strsql = strsql & Format(Date, [Ô]yyyy-mm-dd[Ô] & Format(Time, [Ô] hh:mm:ss[Ô])) & [Ô][ô],[ô][Ô]
                Else
                    strsql = strsql & Format(Coluna(12), [Ô]yyyy-mm-dd[Ô] & [Ô] hh:mm:ss[Ô]) & [Ô][ô],[ô][Ô]
                End If
                strsql = strsql & CStr(Left(Coluna(11), 2)) & [Ô][ô])[Ô]
                Conexao.Execute (strsql)
            End If

        Loop
        Call VerificarAtivosInativos

        Close #F

        rsConf.Close
        Set rsConf = Nothing
    End If

ErrorLineExit:
    Exit Sub
ErrorLine:
    If Err = 9 Then
        MsgBoxGT [Ô]Existe um parâmetro errado no arquivo que está[Ô] & _
                 Chr(13) & [Ô]sendo importado, verifique o arquivo texto![Ô], vbInformation, [Ô]Aviso[Ô]
    Else
        MsgError
        Resume ErrorLineExit
    End If


End Sub
MARCELO.TREZE 04/08/2010 17:30:00
#349458 Resposta escolhida
Sub ImportaProdutos()
On Error GoTo ErrorLine
If txtAnexo.Text = Empty Then
MsgBox [Ô]Selecione o Arquivo para Importação![Ô], vbCritical, [Ô]Tech Size[Ô]
Exit Sub
Else
Dim Coluna() As String
Dim Verifica() As String
Dim F As Long, sLine As String
[txt-color=#e80000]Dim Cont As Integer[/txt-color]
[txt-color=#e80000] Cont = 0[/txt-color]
F = FreeFile
Open txtAnexo.Text For Input As F
Do While Not EOF(F)
Line Input #F, sLine
[txt-color=#e80000]Cont = Cont + 1[/txt-color]
[txt-color=#e80000]If Cont = > 2 Then[/txt-color]
Coluna = Split(sLine, [Ô];[Ô])

Set rsConf = New ADODB.Recordset

rsConf.Open [Ô]SELECT * FROM produtoseservicosporcliente where prodservserial=[ô][Ô] & Coluna(11) & [Ô][ô][Ô], Conexao, adOpenStatic, adLockReadOnly
If rsConf.EOF Then
strsql = [Ô]INSERT INTO produtoseservicosporcliente([Ô]
strsql = strsql & [Ô]prodservcliente,prodservvalorcct,prodservserial,prodservdtaaquis,[Ô]
strsql = strsql & [Ô]prodscdreduzido)[Ô]
strsql = strsql & [Ô] Values ([ô][Ô]
strsql = strsql & Format(Coluna(0), [Ô]000000[Ô]) & [Ô][ô],[ô][Ô]
strsql = strsql & Replace(Coluna(10), [Ô],[Ô], [Ô].[Ô]) & [Ô][ô],[ô][Ô]
strsql = strsql & Coluna(11) & [Ô][ô],[ô][Ô]
If Coluna(12) = [Ô][Ô] Then
strsql = strsql & Format(Date, [Ô]yyyy-mm-dd[Ô] & Format(Time, [Ô] hh:mm:ss[Ô])) & [Ô][ô],[ô][Ô]
Else
strsql = strsql & Format(Coluna(12), [Ô]yyyy-mm-dd[Ô] & [Ô] hh:mm:ss[Ô]) & [Ô][ô],[ô][Ô]
End If
strsql = strsql & CStr(Left(Coluna(11), 2)) & [Ô][ô])[Ô]
Conexao.Execute (strsql)
End If
[txt-color=#e80000]End If[/txt-color]
Loop
Call VerificarAtivosInativos

Close #F

rsConf.Close
Set rsConf = Nothing
End If

ErrorLineExit:
Exit Sub
ErrorLine:
If Err = 9 Then
MsgBoxGT [Ô]Existe um parâmetro errado no arquivo que está[Ô] & _
Chr(13) & [Ô]sendo importado, verifique o arquivo texto![Ô], vbInformation, [Ô]Aviso[Ô]
Else
MsgError
Resume ErrorLineExit
End If


End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar