下記、コードです。
最終行のテキストを読まず、途中までしかセルに記載がありません。
application 400というエラーがでます。
Sub readtxt1()
Dim buf As String
Dim n As Long
Open "C:\tmp\data.txt" For Input As #1
Do Until EOF(1)
Line Input #1, buf
n = n + 1
Cells(n, 1) = buf
Loop
Close #1
End Sub
どこが悪いのでしょうか?
テキストは200行程度です。