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

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

2、在新建的模块中添加代码：Sub read_TXT()Dim myDataFile 钽吟篑瑜As StringDim myNewFILE As StringDim Arr, Brr As VariantDim myLine As StringmyDataFile = "C:\Users\Administrator\Desktop\百度经验\DATA.txt"myNewFILE = "C:\Users\Administrator\Desktop\百度经验\NEWFILE.txt"Open myDataFile For Input As #1 '将读取的DATA数据最为输入性的顺序文件1Open myNewFILE For Output As #2 '将写入的TXt作为顺序文件2Do While Not EOF(1) '读取行是否为最后Line Input #1, myLine ' 将所读取的行资料赋值给myLineArr = Split(myLine, ",") '将string 分裂成数组If Arr(1) = "alarm" Then '查找是否是需要的值Print #2, myLine '在2号文件中写入End IfmyLine = ""LoopClose #1 '关闭Close #2End Sub

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