Number of rows in a text file

[CGantz]

Hello,

I'm trying to retrieve the number of rows that are in a text file via vba. I'm transferring data from one system to another in a series of files and I want to record the number of records I'm transfering in a spreadsheet. Is there an easy way to do this? My first thought is to open the file with vba code and store the number of Rows in a variable but I'm fuzzy on the code for getting the number of rows.

Thanks,

Cole

 

[ajdesalvo]

Try this code:

Function TestImport()

Dim xferData As String
Dim xferFile As String
xferFile = "C:\Test.txt"
xferData = 0
Close #1
Open xferFile For Input As #1 ' Open file for input.
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, xferData ' Read file data into variable.
xferData = xferData + 1
Loop

MsgBox "The number of records in Test.txt were :" & xferData

End Function
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"

 

[RobBroekhuis]

ajdesalvo's code will work, but it requires one more variable, e.g. strDummy, and the line input command should read strDummy, not xferData.
Rob

 

[ajdesalvo]

Thanks Rob! Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"