您现在的位置是:主页 > VBA >

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

发布时间:2023-10-15 04:46:20所属栏目:VBA 已帮助编辑作者:Excel自学教程

这是前几天一位朋友遇到的一个问题,要对彩/票做一些预测,他从网上导了每一期的开奖数据下来,格式为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.  
  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

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

最终效果如下:

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

     以上就是excel自学教程为您提供VBA读取txt文件内容到excel,vba读取txt文件固定位置的解读,本文章链接: http://www.5enet.cn/Excel_VBA/77530.html 欢迎分享转载,更多相关资讯请前往VBA

站长名片

姓名:曾工

职业:IT运维

现居:深圳罗湖宝能大厦

电话:15768114603

扫码关注

  • 专注IT行业,10年IT行业经验
  • 微信