Dzwebs.Net

撰写电脑技术杂文十余年

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

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

温馨提示!

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

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

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计