TXT文件转化为EXCEL文件几秒搞定

长安布衣 · 发表于 2010-1-17 21:39

原帖由 immelman 于 2009-11-30 17:01 发表
HI,如果我需要将整个目录下的TXT文件批量导入成相应的XLS文件怎么弄呢?

恐怕不能。每个文件的格式不一样是不行的。一种格式的文件可以考虑

长安布衣 · 发表于 2010-3-6 20:51

不过简单的格式，估计也是可以做的

lgcmeli · 发表于 2010-4-1 10:40

谢谢布衣分享。

yjnzh · 发表于 2010-4-20 22:37

谢谢老师，我有TXT文件需要老师出手帮助！！
整理前的txt文件

整理前.rar (1.45 KB, 下载次数: 88)

整理后的效果

整理后.rar (1.87 KB, 下载次数: 73)

现在需要老师出手帮忙，如何把整理前的TXT文件变为整理后文件效果，我在这里谢谢老师了！！

[ 本帖最后由 yjnzh 于 2010-4-21 21:38 编辑 ]

长安布衣 · 发表于 2010-4-21 21:22

原帖由 yjnzh 于 2010-4-20 22:37 发表
谢谢老师，我有TXT文件需要老师出手帮助！！

请上传附件

wuyaa9 · 发表于 2010-4-22 20:10

请教师傅：我如何可以通过vba把附件如下的txt转换为excel表格并根据文本中D^后面的数字生成工作簿或表
可以不需要全部的行只需要提取其中的行数据例如只提取后部的四个数据和日期
谢谢，您辛苦！！！

yjnzh · 发表于 2010-4-22 19:55

请老师出手帮助，附件在16楼。

xq1234 · 发表于 2010-4-22 20:29

楼主的代码太啰嗦，而且多半是通过录制宏改编而来的，是用EXCEL直接打开TXT文件，再复制，粘贴而成，效率太低，还加密！
给你们一个直接一点的，速度快得很，合计我就不做了，重点在于对TXT文件的操作：
Sub xq1234()
Set fso = CreateObject("scripting.filesystemobject")
Set f = fso.OpenTextFile(ThisWorkbook.Path & "\成绩.txt", 1, True)
filetxt = f.ReadAll
f.Close
Set f = Nothing
Set fso = Nothing

Data1 = Split(filetxt, Chr(13) & Chr(10))
r = UBound(Data1)
c = UBound(Split(Data1(0), Chr(9)))

Dim MyData()
ReDim MyData(0 To r, 0 To c)

For rr = 0 To r
      Data2 = Split(Data1(rr), Chr(9))
      For c1 = 0 To UBound(Data2) 'c
         MyData(rr, c1) = Data2(c1)
      Next c1
Next rr
Cells(1, 1).Resize(r, c) = MyData
End Sub

xq1234 · 发表于 2010-4-24 12:51

回复16楼

文本文件只能是ANSI编码，不能是Unicode编码

yjnzh · 发表于 2010-4-25 08:15

感谢23楼的高手朋友！！！

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

[原创] TXT文件转化为EXCEL文件 几秒搞定

[原创] TXT文件转化为EXCEL文件几秒搞定