Excel 2010 VBA 入门 99 批量导入文本文件

最新推荐文章于 2024-07-30 10:54:14 发布

ngbshzhn

最新推荐文章于 2024-07-30 10:54:14 发布

阅读量1.7k

点赞数

分类专栏： # Excel 2010 VBA 入门

本文链接：https://blog.csdn.net/ngbshzhn/article/details/118386568

版权

这篇博客介绍了如何使用Excel 2010 VBA批量导入文本文件。通过示例展示了如何利用Open、Close、Input和Line Input语句读取文本文件，以及如何使用EOF函数判断文件末尾。此外，还提到了Transpose函数在处理嵌套一维数组时的作用。

摘要由CSDN通过智能技术生成

示例

如图所示，在某个文件夹下有若干个由其他软件导出的文本文件。将其导入Excel进行进一步处理。

文本1

日期,时间,成交价,成交量,总量,属性(持仓增减),B1价,B1量,B2价,B2量,B3价,B3量,S1价,S1量,S2价,S2量,S3价,S3量,BS
2010-01-04,9:01:35,16620,20,20,23520,16600,10,0,0,0,0,16874,20,0,0,0,0,B
2010-01-04,9:07:19,16800,20,40,-20,16700,20,0,0,0,0,16850,15,0,0,0,0,B
2010-01-04,9:09:16,16700,20,60,0,16700,10,0,0,0,0,16800,5,0,0,0,0,S
2010-01-04,9:09:21,16700,20,80,20,16620,30,0,0,0,0,16800,15,0,0,0,0,S
2010-01-04,9:11:33,16510,20,100,0,16510,25,0,0,0,0,16750,25,0,0,0,0,S
2010-01-04,9:11:47,16700,20,120,-20,16525,5,0,0,0,0,16750,25,0,0,0,0,B
2010-01-04,9:15:20,16650,30,150,-30,16630,20,0,0,0,0,16650,5,0,0,0,0,S
2010-01-04,9:15:24,16650,10,160,0,16630,20,0,0,0,0,16700,5,0,0,0,0,B
2010-01-04,9:18:01,16670,20,180,0,16650,10,0,0,0,0,16680,20,0,0,0,0,B
2010-01-04,9:18:43,16680,40,220,0,16650,25,0,0,0,0,16700,5,0,0,0,0,B
2010-01-04,9:20:59,16680,10,230,0,16670,20,0,0,0,0,16680,15,0,0,0,0,B
2010-01-04,9:21:03,16680,30,260,-30,16680,5,0,0,0,0,16700,25,0,0,0,0,B
2010-01-04,9:21:13,16680,10,270,-10,16670,20,0,0,0,0,16700,20,0,0,0,0,S

文本2

日期,时间,成交价,成交量,总量,属性(持仓增减),B1价,B1量,B2价,B2量,B3价,B3量,S1价,S1量,S2价,S2量,S3价,S3量,BS
2010-01-05,9:12:58,16760,40,40,23050,16725,10,0,0,0,0,16800,10,0,0,0,0,B
2010-01-05,9:24:54,16720,60,100,0,16700,5,0,0,0,0,16730,10,0,0,0,0,S
2010-01-05,9:30:04,16730,20,120,0,16710,10,0,0,0,0,16760,40,0,0,0,0,B
2010-01-05,9:33:32,16735,40,160,0,16710,10,0,0,0,0,16760,40,0,0,0,0,B
2010-01-05,9:37:21,16730,40,200,0,16710,10,0,0,0,0,16755,20,0,0,0,0,S
2010-01-05,9:49:47,16730,20,220,-20,16720,