手机
当前位置:查字典教程网 >电脑 >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把记事本保存成为工作薄】相关文章:

Excel2010怎么将文本转换为数字?

EXCEL中的文本内容大多怎么设置自动换行?

Excel中单引号的妙用

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

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

如何将Excel中多个不同的工作表汇总成一张总表

Excel如何保存为PDF

如何拆分Excel工作表窗格

excel打开2个独立窗口

Excel教程 运用公式设置单元格文本连接

精品推荐
分类导航