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

szqhb · 发表于 2010-6-25 08:34

原帖由 xq1234 于 2010-4-22 20:29 发表
楼主的代码太啰嗦，而且多半是通过录制宏改编而来的，是用EXCEL直接打开TXT文件，再复制，粘贴而成，效率太低，还加密！
给你们一个直接一点的，速度快得很，合计我就不做了，重点在于对TXT文件的操作：
Sub xq123 ...

运行此代码提示“超出文件尾”是怎么一回事？
另外，txt文件能否可以通过选择来实现，不固定在“成绩”这个名称？

kay0822 · 发表于 2010-7-13 10:52

haha 牛× 看看

Zamyi · 发表于 2010-7-13 12:10

原帖由 xq1234 于 2010-4-22 20:29 发表
楼主的代码太啰嗦，而且多半是通过录制宏改编而来的，是用EXCEL直接打开TXT文件，再复制，粘贴而成，效率太低，还加密！
给你们一个直接一点的，速度快得很，合计我就不做了，重点在于对TXT文件的操作：
Sub xq123 ...

请问F数据类型是什么？

Zamyi · 发表于 2010-7-13 12:13

已经明白：F为TextStream

[ 本帖最后由 Zamyi 于 2010-7-13 14:28 编辑 ]

jasminehbb · 发表于 2010-8-10 20:57

你好~
帮我看下这个文件吧
我想把它转成excel的~然后最好是删除多余的行
导入txt文件后变成01excel文件哪种格式的
不知道可不可以
谢谢了

sidney1001 · 发表于 2010-8-27 16:21

布衣能帮我看看这个么

长安布衣 · 发表于 2010-8-30 22:42

原帖由 jasminehbb 于 2010-8-10 20:57 发表
你好~
帮我看下这个文件吧
我想把它转成excel的~然后最好是删除多余的行
导入txt文件后变成01excel文件哪种格式的
不知道可不可以
谢谢了

以下是我做的文件

CNY.rar (12.15 KB, 下载次数: 73)

长安布衣 · 发表于 2010-9-3 22:08

原帖由 sidney1001 于 2010-8-27 16:21 发表
布衣能帮我看看这个么

将两个文件放在一个目录下，点击EXCEL中第一张表的按钮

ALL.rar (9.36 KB, 下载次数: 84)

sidney1001 · 发表于 2010-9-6 10:24

布衣大哥，我也有好多办法能实现转换，就是想比较下各种不同办法，你咋还把代码加密了，唉

Zamyi · 发表于 2010-9-6 10:48

Sub GetText()
  t = Timer
  Dim d As New DataObject
  Dim Fs As FileSystemObject, F As TextStream, S$
  Set Fs = CreateObject("scripting.filesystemobject")
  Set F = Fs.OpenTextFile(ThisWorkbook.Path & "\all.txt", 1, True)
  S = F.ReadAll
  F.Close
  Set F = Nothing
  Set fso = Nothing
  d.SetText S
  d.PutInClipboard
  Sheet1.Paste [a1]
  Set d = Nothing
  [c:c].Insert
  [m1].Resize([a65536].End(3).Row).SpecialCells(4) = 1
  MsgBox Timer - t
End Sub

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

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

麻烦看下我的文件

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

麻烦看下我的文件

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