- A+
所属分类:Excel教程
这是前几天一位朋友遇到的一个问题,要对彩/票做一些预测,他从网上导了每一期的开奖数据下来,格式为TXT类型的,存放在一个文件夹里, 需要vba读取txt文件固定位置。如何VBA读取txt文件内容到excel呢?
如下:
其中每份文件的格式都相同,如下:
现在的要求是:把这些数据导入到Excel中去,导入后格式是这样的:
每一期的数据占一列,而且是隔列存放,因为中间空出一列要提取开奖号码的后三位数字,凡是TXT文件名开头是1的就提取到数据源1表中,TXT文件名开头是2的就提取到数据源2表中。
代码如下:
- '数据源1--
- '提取数据
- Sub lmportData()
- Dim pat$, i%, r%, data1, data2
- pat = ThisWorkbook.Path
- Sheets("数据源1").UsedRange.ClearContents
- For i = 1 To 6
- Open pat & "\1-" &i& "查询信息.txt" For Input As #1
- r = 1
- Do Until EOF(1)
- lnput #1, data1, data2
- Cells(1,i* 2 - 1)(r,1) = data1
- Cells(1,i* 2)(r, 1) = Format(data2, "O00")
- r =r + 1
- Loop
- Close #1
- Next
- End Sub
最终效果如下:
如果你的经常使用Excel做大量重复的事情,掌握点VBA的技术会让你节约很多时间,有更多的时间做其它更有意义的事情。