如何用excel批量处理txt文件，使txt数据格式化

SevenShaw

有大量txt文本数据，格式是乱的，密密麻麻的排列，想通过excel打开txt文件，使用分隔符使数据格式化，然后在保存txt文件，如何进行批量循环处理呢？我用宏录制的代码如下，E:\测试\ycfortxt下有大量的文件，就是不知道如何循环处理，求各位大神指教！！

1. Sub test()
   
2. '
   
3. ' test 宏
   
4. '
   
5. 
   
6. '
   
7.     ChDir "E:\测试\ycfortxt"
   
8.     Workbooks.OpenText Filename:= _
   
9.         "E:\测试\ycfortxt\test1.txt", Origin:=936 _
   
10.         , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
11.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
12.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
13.         , 1), Array(4, 1)), TrailingMinusNumbers:=True
    
14.     ActiveWorkbook.Save
    
15.     ActiveWindow.Close
    
16.     Workbooks.OpenText Filename:= _
    
17.         "E:\测试\ycfortxt\test2.txt", Origin:=936 _
    
18.         , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
19.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
20.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
21.         , 1), Array(4, 1)), TrailingMinusNumbers:=True
    
22.     ActiveWorkbook.Save
    
23.     ActiveWindow.Close
    
24.     Workbooks.OpenText Filename:= _
    
25.         "E:\测试\ycfortxt\test3.txt", Origin:=936 _
    
26.         , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
    
27.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
    
28.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
    
29.         , 1), Array(4, 1)), TrailingMinusNumbers:=True
    
30.     ActiveWorkbook.Save
    
31.     ActiveWindow.Close
    
32. End Sub
    

复制代码

SevenShaw

新手小白，，，求各位老师指教啊！！！

duquancai

SevenShaw 发表于 2016-9-30 21:52
新手小白，，，求各位老师指教啊！！！

需要附件支撑，并按照需求模拟附件。

SevenShaw

duquancai 发表于 2016-10-1 00:02
需要附件支撑，并按照需求模拟附件。

原始数据文件和规范格式后的txt文件已上传附件，上传了几个文件，做测试，能实现循环处理就好。辛苦你了，谢谢！

taocilliu

我是新手 但是我用vba写代码不是这么样的啊

SevenShaw

taocilliu 发表于 2016-10-1 10:11
我是新手 但是我用vba写代码不是这么样的啊

上面的代码，我是通过录制宏生成的代码，我没写过vba代码

duquancai

SevenShaw 发表于 2016-10-1 09:59
原始数据文件和规范格式后的txt文件已上传附件，上传了几个文件，做测试，能实现循环处理就好。辛苦你了 ...

朋友，今天全国人民放假，我手机上网中，没时间。

SevenShaw

duquancai 发表于 2016-10-1 10:35
朋友，今天全国人民放假，我手机上网中，没时间。

好吧，如果你有时间方便的话，麻烦给看下，国庆节快乐啊

小花鹿

闲着没事，练习一下：
Sub test()
Dim thispath As String, mytxt As String, s, tm, br(), i&, j&
thispath = ThisWorkbook.Path & "\"
mytxt = Dir(thispath & "原始文件\" & "*.txt")
Do While mytxt <> ""
    Open thispath & "原始文件\" & mytxt For Input As #1
    tm = Split(StrConv(InputB(LOF(1), #1), vbUnicode), Chr(10))
    Close #1
    Open thispath & mytxt For Output As #1
    For i = 0 To UBound(tm)
        Print #1, Replace(Application.Trim(tm(i)), " ", vbTab)
    Next i
    Close #1
    mytxt = Dir
Loop
End Sub

SevenShaw

小花鹿 发表于 2016-10-1 12:38
闲着没事，练习一下：
Sub test()
Dim thispath As String, mytxt As String, s, tm, br(), i&, j&

非常感谢，运行没问题，感谢感谢！！！！