如何将TXT批量打开并保存成.xlsx

hjq129

如何将TXT批量打开并保存成.xlsx？
附件文件夹内有多个txt，我想将它们均用excel打开，并保存为.xlsx的格式，不知如何编写VBA 11-09-24 22-16.rar (217.54 KB, 下载次数: 38)

2013-7-13 13:01 上传

点击文件名下载附件

zhaogang1960

请测试:

1. Sub Macro1()
   
2.     Dim p$, f$
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     p = ThisWorkbook.Path & ""
   
6.     f = Dir(p & "*.TXT")
   
7.     Do While f <> ""
   
8.         Workbooks.OpenText p & f
   
9.         With ActiveWorkbook
   
10.             .SaveAs Filename:=p & Replace(f, ".TXT", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
11.             .Close
    
12.         End With
    
13.         f = Dir
    
14.     Loop
    
15.     Application.ScreenUpdating = True
    
16. End Sub
    
17. 
    

复制代码

zhaogang1960

上面代码仅处理TXT文件，附件中有多种文件(mem、LOG)：

1. Sub Macro1()
   
2.     Dim p$, f$
   
3.     Application.ScreenUpdating = False
   
4.     Application.DisplayAlerts = False
   
5.     p = ThisWorkbook.Path & ""
   
6.     f = Dir(p & "*.*")
   
7.     Do While f <> ""
   
8.         If f <> ThisWorkbook.Name Then
   
9.             Workbooks.OpenText p & f
   
10.             With ActiveWorkbook
    
11.                 .SaveAs Filename:=p & Split(f, ".")(0) & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
    
12.                 .Close
    
13.             End With
    
14.         End If
    
15.         f = Dir
    
16.     Loop
    
17.     Application.ScreenUpdating = True
    
18. End Sub
    

复制代码

zhaogang1960

请看附件
11-09-24 22-16.rar (236.68 KB, 下载次数: 144)

2013-7-13 14:50 上传

点击文件名下载附件

hjq129

zhaogang1960 发表于 2013-7-13 14:50
请看附件

我自己做了两个宏，能否将TXT用excel打开后，先应用这两个宏，然后再另存为xlsx？
是不是直接把我做的宏添加到你做的文件中，一起执行？ 1.rar (1.14 KB, 下载次数: 15)

2013-7-13 15:02 上传

点击文件名下载附件

先应用table，再应用chart

85578791

看看情况~~~~~~

hellohuan1991

zhaogang1960 发表于 2013-7-13 14:49
上面代码仅处理TXT文件，附件中有多种文件(mem、LOG)：

请教一下，如果这个文件夹里有诸如“1.3.txt”，“12.3.txt”，好像没有效果呀，这个要怎么改才行呢。

小鹿一样

zhaogang1960 发表于 2013-7-13 14:40
请测试:

很有用 谢谢啦！！！

zhang880113

zhaogang1960 发表于 2013-7-13 14:40
请测试:

http://club.excelhome.net/thread-1270434-1-1.html老师帮忙看下，谢谢了！

SevenShaw

zhaogang1960 发表于 2013-7-13 14:40
请测试:

老师，我有个问题，我的txt文件格式是乱的，我想通过excel打开txt文件，指定行和列的划分，类似这种代码，大神能给写个循环处理吗。文件夹里很多文件，怎么循环逐个处理呢？

1. ChDir "E:\D5000数据\遥测遥信统计数据\ycfortxt"
   
2.     Workbooks.OpenText Filename:= _
   
3.         "E:\D5000数据\遥测遥信统计数据\ycfortxt\JL_20160426_124400_SCADA_YC..txt", Origin:=936 _
   
4.         , StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
   
5.         ConsecutiveDelimiter:=True, Tab:=True, Semicolon:=False, Comma:=False, _
   
6.         Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3 _
   
7.         , 1), Array(4, 1)), TrailingMinusNumbers:=True
   
8.     ActiveWorkbook.Save
   
9.     ActiveWindow.Close

复制代码