如何用VBA 从TXT文件中提取相关数据输入txt中?

1、打开EXCEL VBE编辑器（Alt + F11）,并添加模块。

2、在新建的模块中添加代码：

Sub read_TXT()

 

Dim myDataFile As String

 

Dim myNewFILE As String

 

Dim Arr, Brr As Variant

 

Dim myLine As String

 

myDataFile = "C:\Users\Administrator\Desktop\百度经验\DATA.txt"

 

 myNewFILE = "C:\Users\Administrator\Desktop\百度经验\NEWFILE.txt"

 

Open myDataFile For Input As #1 '将读取的DATA数据最为输入性的顺序文件1

 

Open myNewFILE For Output As #2 '将写入的TXt作为顺序文件2

 

Do While Not EOF(1) '读取行是否为最后

 

Line Input #1, myLine ' 将所读取的行资料赋值给myLine

 

Arr = Split(myLine, ",") '将string 分裂成数组

 

If Arr(1) = "alarm" Then '查找是否是需要的值

 

Print #2, myLine  '在2号文件中写入

 

End If

 

myLine = ""

 

Loop

 

Close #1  '关闭

 

Close #2

 

 

End Sub

 

3、执行代码，即可获取所需要的资料。