大众计算机学习网

专门提供各种电脑教程

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

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

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