Reading Data Strings : FreeFile « File Path « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. File Path
3. FreeFile

Reading Data Strings

 
     Sub ReadStrings()
           Dim sLine As String
           Dim sFName As String    'Path and name of text file
           Dim iFNumber As Integer    'File number
           Dim lRow As Long     'Row number in worksheet
           Dim lColumn As Long  'Column number in worksheet
           Dim vValues As Variant 'Hold split values
           Dim iCount As Integer  'Counter

           sFName = "C:\Strings.txt"
           iFNumber = FreeFile
           Open sFName For Input As #iFNumber
           Do
           Line Input #iFNumber, sLine
           vValues = Split(sLine, ";")
           For iCount = LBound(vValues) To UBound(vValues)
              Debug.Print  vValues(iCount)
           Next iCount
           Close #iFNumber
     End Sub

 

Related examples in the same category