主要代码:
Open nPath For Input As #1
' 打开文件。nPath TXT文件路径
Do While Not EOF(1) ' 循环至文件尾。
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。这里会一行一行的读,把读出来的数据保存在TextLine
'返回行数
Me.Text1.ForeColor = &HFF&
Me.Text1.Text = Me.Text1.Text & TextLine & vbCrLf
a = Split(Me.Text1.Text, vbCrLf)在用分割函数以“\”分割
Debug.Print TextLine
' 在立即窗口中显示数据。
Loop
Close #1
' 关闭文件
后续工作你自己来完成,大体就是这个架构