保存时文件名与原文件名相同;且将内容按空格分列(.txt文件中格式相同)
发布时间：2023-07-21 14:13:48
标签：分列,文件,文件名,空格,Excel教程
在一个文件夹中有数百个.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"
0
投稿猜你喜欢
- 有时候我们在使用WPS的时候会遇到wps不能复制粘贴,那么wps中为什么不能复制粘贴呢?小编为大家解决wps中为什么不能复制粘贴,看完本教程
Bongo cat Mver是一款受到很多用户喜欢的桌面萌宠工具，并且在软件的UI面板中，我们可以对软件进行界面、显示、模式等方面的设置，但- 很多用户升级到Win10的家庭版，Win10家庭版相比专业版、企业版在功能上有会所减少，比如我们经常用的本地用户和组、本地策略组是没有的。用
- 很多朋友在日常工作中都是需要制作表格，表头往往是我们发费时间最多的地方。我们经常会遇到写需要做斜线的表头，下面小编就给大家介绍一个在WPS中
- 在某些情况下，我们需要在工作表中大量空白区域中输入同样的内容。例如，用“0”去代替空白单元格等等，如何快速的完成这样的操作呢？下面小编就为大
- 如图所示为某城市的月平均气温数据，需要用其制作一个条形图。 Office教程 Excel制作颜色表示负值图标1、选
- 在前面的教程里，Office办公助手的小编讲述了WPS演示插入背景音乐的方法，本文接着简单的讲解在WPS文字加上背景音乐的2种方法。插入对象
- 电脑中的记事本是我们经常使用的工具，打开之后就可以随意在里面记录一些东西。大家有没有遇到打开记事本突然乱码的情况呢？没有内容，全部都是乱码。
- Microsoft Edge 110 将放弃对旧版本操作系统的支持，包括 Windows 8.1、8 和 7。该公司在 Microsoft
- 最近笔者就遇到一个要批量重启 2300 多台 Windows Server 的艰巨任务，这批服务器全为 DELL 刀片，要求 5 天内完成全
- 在 事情中 咱们 常常会用到WPS表格和Excel 停止数据的 计较， 可是 偶然会 碰到一个很糟心的 状况： 明显 输出了 准确的公式，
- 在Excel表格中有一个“隐藏”功能“照相机”,它可以快速截取Excel表格中的任何一块内容还可以转换成图片格式给客户发送过去，那么在Exc
- HoudahSpot Mac是一款简单实用的Mac文件搜索工具，可以按名称、文本、作者、内容种类等信息来查找需要的文件，同时 HoudahS
- 演示动画操作步骤利用Excel“自动筛选”功能，可以轻松地把符合某种条件的数据挑选出来。 普通筛选。我们在“员工基本情况登记表”中，把“职称
- 不过由于一些原因，Win8换Win7系统并非直接重装那么简单，我们还需要先进入bios设置才行，很多用户忽略这步导致Win7系统安装失败。下
- win10显卡驱动怎么更新?下文将为大家演示win10系统显卡驱动更新教程，Windows10系统该如何更新显卡驱动呢?方法很简单，下面就一
- MacBook 需要多少存储空间？256GB 的存储空间足以容纳 MacBook Pro 或 AIr 吗？让我们来看看为什么在购买下一台 M
- win7系统以其强大、稳定的性能受到了很多用户的喜爱，因此很多使用XP系统的朋友都将系统换成win7系统了。但是安装win7系统也需要一定的
- 现在Win11系统是非常火热的电脑操作系统，很多使用Win10系统的用户也想安装体验，但是Win11系统对于电脑配置有一定的要求，如果Win
- 在使用计算机的过程中遇到蓝屏故障，我们需要找到导致蓝屏现象的原因才能对症下药，可以开启系统中的自动收集蓝屏故障信息的DMP转储文件，在下次开
