通常在VBA中读文件文件时,习惯使用Line Input #fileNo, str的方法,这个方法对Windows下的文本文件是可以的,例如下面的代码就是读取文本文件中的数据到Excel表中:
Sub ImpData1()
Dim datFullName As String, rline As String
Dim Arr() As String
Dim row1, i, k As Integer
datFullName = ThisWorkbook.Path & "\" & Cells(15, "O") '数据文件名
Open datFullName For Input As #1 ' 打开文件。
row1 = 2
stName = Cells(2, "P")
Do While Not EOF(1) 'EOF(1)中的1是文件号
Line Input #1, rline
Arr = Split(rline, Chr(9)) 'Tab是分隔符
k = UBound(Arr) + 1
For i = 1 To k
Sheets(stName).Cells(row1, i) = Arr(i - 1)
Next i
row1 = row1 + 1
Loop
C