QUANTIDADE DE LINHA

GUIGOR 21/03/2016 14:41:24
#459582
boa tarde amigos
é o seguinte eu tenho um arquivo texto com varias linhas entao eu preciso saber quantas linha existem nesse arquivo antes de comecar a importar ele para a base de dados ou seja eu tenho que primeiro saber quantas linhas esse arquivo possui.
PERCIFILHO 21/03/2016 16:19:50
#459600 Resposta escolhida
Talvez não seja bem isso, mas já te dá uma luz;

Public Function TamanhoTxt(fArquivo) As Integer
On Error GoTo Trata
Dim temp As Variant, intLinhas%
intLinhas = 0
Open fArquivo For Input As #1
While Not EOF(1)
 Line Input #1, temp
 intLinhas = intLinhas + 1
Wend
Close #1
TamanhoTxt = intLinhas
Exit Function
Trata:
If Err = 55 Then
 Close #1
 Resume
Else
 MsgBox Error(Err), 64, Msg(0)
End If
End Function


Espero ter ajudado
Tópico encerrado , respostas não são mais permitidas
Voltar