Read A Text File From Excel
Excel can import tab-delimited or comma-delimited files using standard functionality. For some applications, however, it is useful to process the file by reading it from Excel and parsing the data. The example that follows shows the technique to read a file and loop through all the lines sequentially until an EOF is encountered. This example doesn't demonstrate the parsing techniques, only how to open the file, read the lines sequentially, and close the file.
Program Code
Option Explicit
Public Sub ReadTextFile()
Dim intHandle As Integer
Dim strInputLine As String
On Error GoTo ReadTextFileError
' ***********************************************************************
' Get a Text File Handle
' ***********************************************************************
intHandle = FreeFile
' ***********************************************************************
' Open A Sample Text File - Normally You Would Use A File Open Dialog
' For an Actual Application In Which Case The File Would Always Be
' Found When Opening
' ***********************************************************************
Open "C:\samplefile1.txt" For _
Input Access Read _
As intHandle
' ***********************************************************************
' Loop Through Entries
' ***********************************************************************
While Not EOF(intHandle)
Line Input #intHandle, strInputLine
MsgBox ("Input Line is: " & strInputLine)
Wend
ReadTextFileExit:
Close intHandle
Application.DisplayAlerts = False
' Application.Quit
Exit Sub
ReadTextFileError:
MsgBox "An Error Occurred In This Application" & vbCrLf & _
"Please Contact The Developer" & vbCrLf & vbCrLf & _
"Error Number = " & Err.Number & " Description = " & _
Err.Description, vbCritical
Resume ReadTextFileExit
End Sub
