Excel精英培训网

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

[已解决]求大神帮忙用excel批量导入当前文件夹中的txt数据,并按不同列导入!

[复制链接]
发表于 2017-4-14 18:21 | 显示全部楼层 |阅读模式
附件中包含示例的TXT文件,TXT文件数据是软件导出的ASCII数据,数据只有一列多行!现需要将每个txt文件中的数据按列导入EXCEL中,例如:将01.txt的数据导入A列,02.txt的数据导入B列,依次类推。求大神指点!急用!
最佳答案
2017-4-15 12:51
小改一下
  1. Sub Macro1()
  2. Dim mypath$, wb$, s&
  3. mypath = ThisWorkbook.Path & ""
  4. wb = Dir(mypath & "*.txt")
  5. Do While wb <> ""
  6.     s = s + 1
  7.     Open mypath & wb For Input As #1
  8.     w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), Chr(10))
  9.     Close #1
  10.     Cells(1, s).Resize(UBound(w) + 1) = Application.Transpose(w)
  11.     Erase w
  12.     wb = Dir
  13. Loop
  14. End Sub
复制代码

汇总txt数据.rar

14.04 KB, 下载次数: 16

批量txt导入

excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
 楼主| 发表于 2017-4-14 18:29 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2017-4-14 20:11 | 显示全部楼层
回复

使用道具 举报

发表于 2017-4-14 21:12 | 显示全部楼层
明天帮你看看,txt操作都是比较简单的
回复

使用道具 举报

 楼主| 发表于 2017-4-14 22:10 | 显示全部楼层
大灰狼1976 发表于 2017-4-14 21:12
明天帮你看看,txt操作都是比较简单的

谢谢大神!
回复

使用道具 举报

 楼主| 发表于 2017-4-14 22:34 | 显示全部楼层

Sub Macro1()
Dim mypath$, wb$, s&
mypath = ThisWorkbook.Path & "\"
wb = Dir(mypath & "*.txt")
Do While wb <> ""
    s = s + 1
    Open mypath & wb For Input As #1
    w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
    Close #1
    Cells(1, s).Resize(UBound(w) + 1) = Application.Transpose(w)
    Erase w
    wb = Dir
Loop
End Sub


我在网上找了以上代码,能实现分别按列导入不同txt文档数据,但是每个txt数据只导入在第一行,我希望是分行的,别在一个单元格(原文件TXT我用excel打开是一列,但是多行,最后导入我也希望不变),请问该怎么改码?谢谢!

回复

使用道具 举报

发表于 2017-4-15 12:51 | 显示全部楼层    本楼为最佳答案   
小改一下
  1. Sub Macro1()
  2. Dim mypath$, wb$, s&
  3. mypath = ThisWorkbook.Path & ""
  4. wb = Dir(mypath & "*.txt")
  5. Do While wb <> ""
  6.     s = s + 1
  7.     Open mypath & wb For Input As #1
  8.     w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), Chr(10))
  9.     Close #1
  10.     Cells(1, s).Resize(UBound(w) + 1) = Application.Transpose(w)
  11.     Erase w
  12.     wb = Dir
  13. Loop
  14. End Sub
复制代码
回复

使用道具 举报

 楼主| 发表于 2017-4-17 18:57 | 显示全部楼层
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 02:34 , Processed in 0.442126 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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