Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 5023|回复: 15

[已解决]多个txt文件合并成excel文件

[复制链接]
发表于 2013-8-7 20:01 | 显示全部楼层 |阅读模式
多个txt文件合并成excel文件。
最佳答案
2013-8-7 21:43
多个txt文件合并成excel文件3.rar (19.23 KB, 下载次数: 22)

多个txt文件合并成excel文件.rar

28.94 KB, 下载次数: 8

发表于 2013-8-7 21:01 | 显示全部楼层
Sub test()
    Dim p$, f$, A, i&, r&

    Application.ScreenUpdating = False
    Cells.Clear
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.txt")
    Do While f <> ""
        i = i + 1

        '读取文本
        Open p & f For Input As #1
        A = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
        Close #1

        '导入到工作表
        r = Range("b65536").End(xlUp).Row + 1
        Cells(r, 2).Resize(UBound(A), 1) = Application.Transpose(A)
        If i <> 1 Then Cells(r, 1) = 1
        f = Dir
    Loop

    '整理
    Range("a:a").SpecialCells(xlCellTypeConstants).EntireRow.Delete
    Rows(1).Delete
    Columns(1).Delete
    Columns("A:A").TextToColumns Comma:=True
'    Range("a1").CurrentRegion.EntireColumn.AutoFit
End Sub
多个txt文件合并成excel文件2.rar (17.25 KB, 下载次数: 9)
回复

使用道具 举报

 楼主| 发表于 2013-8-7 21:05 | 显示全部楼层
爱疯 发表于 2013-8-7 21:01
Sub test()
    Dim p$, f$, A, i&, r&

大师,最后一列的日期没有的?
回复

使用道具 举报

发表于 2013-8-7 21:21 | 显示全部楼层
啊,哪个地方没了,我还没发现。。。。。。。
回复

使用道具 举报

 楼主| 发表于 2013-8-7 21:25 | 显示全部楼层
爱疯 发表于 2013-8-7 21:21
啊,哪个地方没了,我还没发现。。。。。。。

你看看我上传的附件,最后一列有日期的。为每个TXT名字的最后8个字符。

点评

噢明白了,等下  发表于 2013-8-7 21:29
回复

使用道具 举报

发表于 2013-8-7 21:43 | 显示全部楼层    本楼为最佳答案   
多个txt文件合并成excel文件3.rar (19.23 KB, 下载次数: 22)
回复

使用道具 举报

 楼主| 发表于 2013-8-7 22:03 | 显示全部楼层
爱疯 发表于 2013-8-7 21:43

Sale日销售明细20110703  这个文档增加了“明年预计”项目,怎么无法导入?

多个txt文件合并成excel文件爱疯.rar

19.01 KB, 下载次数: 6

回复

使用道具 举报

发表于 2013-8-7 22:18 | 显示全部楼层
虽然可改,但如果你能在源头时,统一样式,将减少很多代码,以便以后再查看修改。
生成文本时,无法让样式一样吗?实际情况是怎样的
回复

使用道具 举报

 楼主| 发表于 2013-8-7 22:22 | 显示全部楼层
爱疯 发表于 2013-8-7 22:18
虽然可改,但如果你能在源头时,统一样式,将减少很多代码,以便以后再查看修改。
生成文本时,无法让样式 ...

不好意思,最后一个项目“明年预计”是老板叫加上去的。
回复

使用道具 举报

发表于 2013-8-7 22:24 | 显示全部楼层
这3个文本,是从某个系统里导出或生成的吗?不能重新把这3个文件导出一次吗
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 07:03 , Processed in 0.348897 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表