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

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

(0)

相关推荐

  • 怎样保存excel工作薄

    从学习的开始就要重视保存工作薄的重要性,不管是人为的疏忽还是碰到意外的情况而没有保存工作薄,那么花费巨大心血的劳动成果就可能付诸东流.以下介绍三种保存excel工作薄: 操作方法 01 方法一:单击& ...

  • 手动恢复未保存的Excel工作薄的方法步骤

    在Excel2010中用户可以手动恢复未保存的工作簿,其方法主要有以下三种: 方法一、在“文件”选项卡中单击“信息”选项卡,在其界面左侧单击“管理版本”按钮,如图所示: 在弹出的下拉菜单中选择“恢复未 ...

  • 如何手动恢复未保存的Excel工作薄

    在Excel2010中用户可以手动恢复未保存的工作簿,其方法主要有以下三种: 方法一、在“文件”选项卡中单击“信息”选项卡,在其界面左侧单击“管理版本”按钮,如图所示: 在弹出的下拉菜单中选择“恢复未 ...

  • excel使用vba创建新的工作薄并另存为

    excel中使用vba来创建新的工作薄并另存为的方法,有需要的朋友可以参考本文,来看看吧! 步骤 1.首先我们打开一个工作样表作为例子. 2.我们使用alt+f11组合快捷键进入vbe编辑器,插入一个 ...

  • excel中使用vba退出工作薄时自动保存文件

    小编致力于为大家奉献最有效的,让大家能够解决掉问题,但是大家也都知道,每个人遇到的情况都是不一样的,大家在看小编的同时,除了跟随操作,也需要自己的思考,举一反三的解决问题,这样才会变得更加有内涵,成为 ...

  • excel vba如何打开,关闭多个工作薄

    用excel VBA 编写打开和关闭多个工作薄,相应的代码如下: 1、打开指定工作簿 dim wb as workbook set wb = " 文件路径及文件名" workbooks.open fi ...

  • 在excel表格中使用vba函数打开工作薄

    excel中可以使用vba来打开工作薄的,下面小编就为大家详细介绍一下,有需要的朋友可以参考本文! 步骤 1.首先我们打开一个工作样表作为例子. 2.我们使用alt+f11组合快捷键进入vbe编辑器, ...

  • EXCEL打开文件和保存工作薄的快捷键

    EXCEL打开文件和保存工作薄的快捷键是什么呢?今天小编为大家讲解一下. 操作方法 01 打开电脑,找到Excel文档,点击并进入,如图所示. 02 进入之后,在键盘上面按住"CTRL+F1 ...

  • 禁止修改工作薄所有工作表单元格数据VBA源代码

    关于禁止修改工作表数据的方法,俺已在很多地方看到过,并且已学会! 但,终究觉得不适合自己的需求,有很多介绍的方法,说的都是如何加密工作表,加密数据区域,然后再怎么设置密码等,使用此方法来禁止修改任何数 ...