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

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

如下：

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

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

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

代码如下：

1. '数据源1--

2. '提取数据

3. Sub lmportData()

4. Dim pat$, i％, r％, data1, data2

5. pat = ThisWorkbook.Path

7. Sheets("数据源1").UsedRange.ClearContents

8. For i = 1 To 6

9.    Open pat & "1-" &i& "查询信息.txt" For Input As #1

10.    r = 1

11.    Do Until EOF(1)

12.       lnput #1, data1, data2

13.        Cells(1,i* 2 - 1)(r,1) = data1

14.        Cells(1,i* 2)(r, 1) = Format(data2, "O00")

15.        r =r + 1

16.    Loop

17.    Close #1

18.    Next

19. End Sub