在一个文件夹中有数百个.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"
.Close 0
End With
End If
Next
零七网部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与零七网进行文章共享合作。