VBA中讀取文件的步驟

Open pathname For mode [Access access][lock] As [#]filenumber [Len=reclength]

Open "C:\Autoexec.bat" For Input As #1

使用下面的語句來逐行讀取Autoexec.bat或者其它任何順序文件里的內(nèi)容：

Line Input #filenumber, variableName

#filenumber是用Open語句打開文件時使用的數(shù)字，variableName是個String或者Variant變量，用來儲存讀取的行。

Line Input #語句僅讀取一開啟順序文件里的一行并且儲存在一變量里。記住，Line Input # 語句一次讀取順序文件里的一個字符，直到它遇到回車字符（Chr(13)）或者回車-換行字符（Chr(13)& Chr(10)）。這些字符（回車，換行）在讀取過程中返回的文本里是會忽略掉的。

接下來的過程ReadMe示范如何使用Open和Line Input #語句逐行讀取Autoexec.bat文件的內(nèi)容。試試用同樣的方法來讀取其它順序文件。

1. 在當(dāng)前工程里面插入新模塊并重命名為SeqFiles

2. 輸入下列過程ReadMe：

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

3. 按下F8，逐句運(yùn)行該過程

為了讀取內(nèi)容，過程ReadMe將文件Autoexec.bat在模式Input里作為文件號碼1打開。Do…While循環(huán)告訴VB一直執(zhí)行循環(huán)里面的語句，直到到達(dá)文件結(jié)尾。文件的結(jié)尾由函數(shù)EOF的結(jié)果決定。

EOF函數(shù)當(dāng)下個要讀取的字符已經(jīng)過了文件結(jié)尾時，返回邏輯值True。注意，EOF要求一個參數(shù)——你要檢查的打開了的文件號碼，是前面Open語句使用的同一個數(shù)字。使用EOF函數(shù)來確保VB不會超出文件結(jié)尾處。

Line Input # 語句將每行內(nèi)容儲存于變量rLine里，然后，信息框顯示行號和它的內(nèi)容。之后如果函數(shù)EOF的結(jié)果還是為假（還未到達(dá)文件結(jié)尾處）的話，VBA給行計數(shù)器增加1，并且開始讀取下一行。當(dāng)函數(shù)EOF結(jié)果為真是，VB就會退出循環(huán)。在VBA結(jié)束前，還會再運(yùn)行兩條語句，顯示讀取行的總數(shù)，以及關(guān)閉該打開的文件。