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

  • A+
所属分类:Excel教程

 

 

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

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

如下:

VBA读取txt文件内容到excel,vba读取txt文件固定位置
其中每份文件的格式都相同,如下:

VBA读取txt文件内容到excel,vba读取txt文件固定位置
现在的要求是:把这些数据导入到Excel中去,导入后格式是这样的:

 

VBA读取txt文件内容到excel,vba读取txt文件固定位置
每一期的数据占一列,而且是隔列存放,因为中间空出一列要提取开奖号码的后三位数字,凡是TXT文件名开头是1的就提取到数据源1表中,TXT文件名开头是2的就提取到数据源2表中。

代码如下:

  1. '数据源1--
  2. '提取数据
  3. Sub lmportData()
  4. Dim pat$, i%, r%, data1, data2
  5. pat = ThisWorkbook.Path
  6. Sheets("数据源1").UsedRange.ClearContents
  7. For i = 1 To 6
  8.    Open pat & "\1-" &i& "查询信息.txt" For Input As #1
  9.    r = 1
  10.    Do Until EOF(1)
  11.       lnput #1, data1, data2
  12.        Cells(1,i* 2 - 1)(r,1) = data1
  13.        Cells(1,i* 2)(r, 1) = Format(data2, "O00")
  14.        r =r + 1
  15.    Loop
  16.    Close #1
  17.    Next
  18. End Sub

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

 

最终效果如下:

 

VBA读取txt文件内容到excel,vba读取txt文件固定位置
如果你的经常使用Excel做大量重复的事情,掌握点VBA的技术会让你节约很多时间,有更多的时间做其它更有意义的事情。

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: