Dim i As Long
Dim temp As String

i = 0

Open App.Path & "test.txt" For Input As #1     '读取txt文件中的内容

Do While Not EOF(1)

Line Input #1, temp
i = i + 1
For j = 1 To Len(temp)          '测试一行内所有数据
Next j
Loop
Close #1
MsgBox "txt文件已读取!" & vbCrLf & "共有" & i - 2 & "行" & vbCrLf & "共有" & Len(temp)& "列"

End Sub