手机
当前位置:查字典教程网 >电脑 >Excel教程 >VBA把记事本保存成为工作薄
VBA把记事本保存成为工作薄
摘要:在一个文件夹中有数百个.txt文件,想将其另存为.xls文件,保存时文件名与原文件名相同;且将内容按空格分列(.txt文件中格式相同),使用...

在一个文件夹中有数百个.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

【VBA把记事本保存成为工作薄】相关文章:

excel2013如何快速冻结窗口

excel如何制作南丁格尔玫瑰图

单独打印Excel指定区域的妙招

excel怎么导入记事本中的数据

掌握十二则技巧 Excel操作效率大大提高

Vba把Excel某个范围保存为XLS工作薄文件

excel打开2个独立窗口

Excel数据验证怎么使用

Excel 日期格式的设定

在Excel中Choose函数具体如何使用?

精品推荐
分类导航