在电子表格Excel里面,我们可以使用Line Input语法读取行文件,下面是具体的方法,请参阅。
Line Input:功能:以Input模式下打开的文件,读取整行文件内容
语法
Line Input #文件序号, 变量(String型)
例子如下:
Sub ReadFile()
Dim strFileName As String
Dim intFileNo As Integer
Dim strData As String
strFileName = "C:\dzwebs\MyText.txt"
intFileNo = FreeFile
Open strFileName For Input As #intFileNo
Do While Not EOF(intFileNo)
Line Input #intFileNo, strData
Debug.Print strData
Loop
Close intFileNo
End Sub