VBA读取txt文件内容到excel，vba读取txt文件固定位置

这是前几天一位朋友遇到的一个问题，要对彩/票做一些预测，他从网上导了每一期的开奖数据下来，格式为TXT类型的，存放在一个文件夹里, 需要vba读取txt文件固定位置。如何VBA读取txt文件内容到excel呢？

如下：

其中每份文件的格式都相同，如下：

现在的要求是：把这些数据导入到Excel中去，导入后格式是这样的：

每一期的数据占一列，而且是隔列存放，因为中间空出一列要提取开奖号码的后三位数字，凡是TXT文件名开头是1的就提取到数据源1表中，TXT文件名开头是2的就提取到数据源2表中。

代码如下：

最终效果如下：

如果你的经常使用Excel做大量重复的事情，掌握点VBA的技术会让你节约很多时间，有更多的时间做其它更有意义的事情。