+ -
当前位置:首页 → 问答吧 → 求读取及导入TXT数据的问题

求读取及导入TXT数据的问题

时间:2011-08-12

来源:互联网

兄弟刚接触VBA,请教各位两个菜鸟问题:
1、一个TXT文件,内有N行数据,数据间以空格分隔。假设每行有5个数值数据,请教如何一次将一行的5个数据读入数组变量中?
   假设TXT的内容为: 11 12 13 14 15
                                      16 17 18 19 20
                                     .........................
                                     .........................
2、同样是上述的TXT文件,如何一次性将所有数据读取并存入指定单元格中(每个单元格存1个数值数据)?

非常感谢!

作者: luckywolf   发布时间: 2011-08-12

我也想知道,一直没有找到好的办法

作者: g174157601   发布时间: 2011-08-12

第一个问题,用OPEN 命令打开TXT文本,LINE INPUT一下,然后用SPLIT()就可以生成数组了

第二个问题,EXCEL有直接导入功能,导入时按空格分列就可以了。

作者: wudixin96   发布时间: 2011-08-12

谢谢楼上的解答!
第一个问题,能否提供下VBA代码呢
第二个问题,就是不想用EXCEL的导入功能,如何用VBA代码实现呢?

作者: luckywolf   发布时间: 2011-08-12

一、
复制内容到剪贴板
代码:
open "c:\test.txt" for input as #1
do while not eof(1)
  line input #1,s
  arr=split(s," ")
loop
close #1
二、导入功能用VBA写出来不就行了??

作者: wudixin96   发布时间: 2011-08-12

这个我前两天恰好弄过

附件

批量读文本.rar(13.58 KB)

2011-8-12 13:39, 下载次数: 10

作者: bnuxuliang   发布时间: 2011-08-12

导入单元格中:导入外部数据,用空格隔开分列

作者: 许云婷   发布时间: 2011-08-12

适合初学者学习的范本文件

作者: clark_wuxi   发布时间: 2011-08-12

非常感谢楼上的解答!有问题再来

作者: luckywolf   发布时间: 2011-08-12