Excel_VBA 逐行读取文件

逐行读取文件
使用下面的语句来逐行读取Autoexec.bat或者其它任何顺序文件里的内容：
Line Input #filenumber, variableName
#filenumber是用Open语句打开文件时使用的数字，variableName是个String或者Variant变量，用来储存读取的行。
Line Input #语句仅读取一开启顺序文件里的一行并且储存在一变量里。记住，Line Input # 语句一次读取顺序文件里的一个字符，直到它遇到回车字符（Chr(13)）或者回车-换行字符（Chr(13) & Chr(10)）。这些字符（回车，换行）在读取过程中返回的文本里是会忽略掉的。
接下来的过程ReadMe示范如何使用Open和Line Input #语句逐行读取Autoexec.bat文件的内容。试试用同样的方法来读取其它顺序文件。
Sub ReadMe()
Dim rLine As String
Dim i As Integer ' line number
i = 1
Open "C:\Autoexec.bat" For Input As #1

' stay inside the loop until the end of file is reached

Do While Not EOF(1)
Line Input #1, rLine

MsgBox "Line " & i & " in Autoexec.bat reads: " _
& Chr(13) & Chr(13) & rLine

i = i + 1
Loop

MsgBox i & " lines were read."
Close #1
End Sub