I'm trying to read a text file using vba. I tried the below code
Open "C:\tester.txt" For Input As #1
Worksheets("UI").Range("H12").Value = Input$(LOF(1), 1)
Close #1
When I run this I'm getting an error.
Run-time error '62'. Input past end of file.
The content of text file is:
Unable to open COM10. Make sure it is connected
Plus other stuff
And more stuff
way more stuff
Thanks in advance for help.
The following code will loop through each line in the text document and print these from range H12
and downward in the UI-sheet.
Sub ImportFromText()
Open "C:\tester.txt" For Input As #1
r = 0
Do Until EOF(1)
Line Input #1, Data
Worksheets("UI").Range("H12").Offset(r, 0) = Data
r = r + 1
Loop
Close #1
End Sub