Hi ,
I have an excel sheet. i want to calculate the number of rows in the
excel sheet using Vb6.
This is the code that i have:

Dim S As String
Dim rlmt As Integer
Open CommonDialog1.FileName For Input As #1
rlmt = 0
' To get the number of rows
While Not EOF(1)
Line Input #1, S
rlmt = rlmt + 1
Wend
Close #1
MsgBox (rlmt)

this code seems to give me more no of rows than what is actually
there. Example, i had 7327 rows but my output using this code was
7330. Any help????

Thanks,
anu