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

办公教程导读

收集整理了【VBA读取txt文件内容到excel，vba读取txt文件固定位置】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含710字，纯文字阅读大概需要2分钟。

办公教程内容图文

现在的要求是：把这些数据导入到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的技术会让你节约很多时间，有更多的时间做其它更有意义的事情。

办公教程总结

以上是为您收集整理的【VBA读取txt文件内容到excel，vba读取txt文件固定位置】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程VBA读取txt文件内容到excel，vba读取txt文件固定位置。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。