如何用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、执行代码，即可获取所需要的资料。