手机版

首页 IT科技安全资讯卡饭教程卡饭论坛

卡饭网 > 其他 > 正文

VBA把记事本保存成为工作薄

来源：本站整理作者：梦在深巷时间：2015-02-28 15:20:02

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

本周热门

本月热门