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

Admin | 2015-2-2 9:45:01 | 被阅次数 | 4370

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

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

该杂文来自： Excel杂文

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

下一篇：Excel共享工作薄为何只能打开三3个