Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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