[已解决]如何批量将TXT文档转换成EXCEL文档

jx1680000 · 发表于 2009-11-23 17:17

这个最佳答案由 jx1680000 给出，感谢 jx1680000 的回答。

单击隐藏图章

如何批量将TXT文档转换成EXCEL文档

风光好分 · 发表于 2009-11-23 18:20

提示: 作者被禁止或删除内容自动屏蔽

老糊涂 · 发表于 2009-11-23 20:10

一个TXT文档，一般用分列的方法，多个文档没有做过。

lotte · 发表于 2009-11-23 20:15

那个批量重命名是哪里来的？

VBAHERO · 发表于 2009-11-23 20:23

按ALT+F11，打开任意一个模块后添加下面语句：

Sub 转Xls()
Dim Pth$, Fname$
Pth = ThisWorkbook.Path
Fname = Dir(Pth & "\*.txt")
Do While Fname <> ""
Name Pth & "\" & Fname As Pth & "\" & Left(Fname, InStr(Fname, ".") - 1) & ".xls"
Fname = Dir
Loop
End Sub

然后F5运行即可

dcq3293088 · 发表于 2009-11-23 20:53

回复学习啊。

zhen100 · 发表于 2009-11-23 20:59

学一下！！

沙田柚 · 发表于 2009-11-23 21:51

我也想知道

dieyue · 发表于 2009-11-24 22:19

QUOTE:

以下是引用jx1680000在2009-11-23 17:17:00的发言：

太强了，竟然用ACDSEE这个软件来将它们直接转换，佩服！

学习了：）

bjw · 发表于 2009-11-24 23:24

严重学习

		自动登录	找回密码
密码			注册

风光好分风光好分当前离线积分 5 IP卡狗仔卡	发表于 2009-11-23 18:20 \| 显示全部楼层工作中常用的Excel函数公式，全印在一张超大鼠标垫上提示: 作者被禁止或删除内容自动屏蔽
风光好分风光好分当前离线积分 5 IP卡狗仔卡
	回复使用道具举报显身卡