none
Importação de arquivo txt RRS feed

  • Pergunta

  • Pessoal, estou tentando importar um arquivo txt, onde me aparece a seguinde mensagem quando tento passar para a próxima linha de dados.

    "Erro 62 : Entrada depois do fim do arquivo"

    estou usando o access 2003, eu sei que este erro acontece quando existe mais de uma linha em branco. e é isso mesmo, quando eu abri o arquivo no word percebi que existem linhas em branco. Como posso resolver este problema?

    Obrigado!

    segunda-feira, 21 de agosto de 2006 20:40

Respostas

  • Oi Fernando,

     

    experimente executar esta rotina para limpar as linhas em branco do TXT antes de importá-lo:

     

    Sub ConsertaTXT()
    Dim strLine As String
    Dim strTXT As String

    Open "c:\Projetos\SGTransportes\Teste.txt" For Input As #1
    Do Until EOF(1)
        Line Input #1, strLine
        If Len(strLine) > 0 Then
            'Remonta o TXT, sem as linhas em branco
            strTXT = strTXT & strLine & vbCrLf
        End If
    Loop
    Close #1

    'Remove a última quebra
    If Len(strTXT) > 0 Then
        strTXT = Left(strTXT, Len(strTXT) - 1)
    End If

    'Substitui o TXT
    Open "c:\Projetos\SGTransportes\Teste.txt" For Output As #1
    Print #1, strTXT
    Close #1

    End Sub

    segunda-feira, 21 de agosto de 2006 23:50
    Moderador