VBA读取txt文件内容到excel_vba读取txt文件固定位置
这是前几天一位朋友遇到的一个问题，要对彩/票做一些预测，他从网上导了每一期的开奖数据下来，格式为TXT类型的，存放在一个文件夹里, 需要vba读取txt文件固定位置。如何VBA读取txt文件内容到excel呢？
如下：
其中每份文件的格式都相同，如下：
现在的要求是：把这些数据导入到Excel中去，导入后格式是这样的：
每一期的数据占一列，而且是隔列存放，因为中间空出一列要提取开奖号码的后三位数字，凡是TXT文件名开头是1的就提取到数据源1表中，TXT文件名开头是2的就提取到数据源2表中。
代码如下：
- ‘数据源1– ‘提取数据 SublmportData() Dimpat$,i%,r%,data1,data2 pat=ThisWorkbook.Path Sheets("数据源1").UsedRange.ClearContents Fori=1To6 Openpat&"/1-"&i&"查询信息.txt"ForInputAs#1 r=1 DoUntilEOF(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 EndSub
最终效果如下：
如果你的经常使用Excel做大量重复的事情，掌握点VBA的技术会让你节约很多时间，有更多的时间做其它更有意义的事情。
