保存时文件名与原文件名相同;且将内容按空格分列(.txt文件中格式相同)

来源：

Wps Office教程网

2019-12-12 分类：Excel教程阅读(521) 评论(0)

　　在一个文件夹中有数百个.txt文件，想将其另存为.xls文件，保存时文件名与原文件名相同;且将内容按空格分列(.txt文件中格式相同)，使用VBA可以实现该功能，代码如下：

　　Dim Fso, Fl

　　Set Fso = CreateObject("Scripting.FileSystemObject")

　　For Each Fl In Fso.getfolder(ThisWorkbook.Path & "").Files

　　If Fl.Name <> ThisWorkbook.Name Then

　　Workbooks.OpenText (Fl)

　　With ActiveWorkbook

　　.SaveAs ThisWorkbook.Path & "" & Fl.Name & ".xls"