如何批量提取txt中的字段到excel

EXCEL读取tet文件只能使用VBA实现读取Txt文件内容

直接采用Open函数+Line input命令读取tet文件
Private Sub txt_read()
Dim txt As String
Open "D:\dzh.txt" For Input As #1 '
'对文件做任何 I/O 操作之前都必须先打开文件。Open 语句分配一个缓冲区供文件进行 I/O 之用，
'并决定缓冲区所使用的访问方式。
'打开文件作为数据输入用，文件号为#1
Do While Not EOF(1)
Line Input #1, txt '从已打开的顺序文件中读出一行并将它分配给 String 变量
'Line Input # 语句一次只从文件中读出一个字符，直到遇到回车符 (Chr(13))
'或回车–换行符 (Chr(13) + Chr(10)) 为止。回车–换行符将被跳过，而不会被附加到字符串上
MsgBox txt
Loop
Close #1
End Sub