File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. Reading Text Files One Row at a Time
Sub Import10()
    ThisFile = "C\sales.txt"
    Open ThisFile For Input As #1
    For i = 1 To 10
        Line Input #1, Data
        Cells(i, 1).Value = Data
    Next i
    Close #1
End Sub