reading entire text file using vba

excel, vba

Solution

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

Problem

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.

Original source

Related problems