欧非资源网：安全、免费、专业放心的资源下载站！ 最新软件|软件分类

您的位置：欧非资源网 > Excel专区 > Excel函数 > VBA读取txt文件内容到excel，vba读取txt文件固定位置

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

时间：2021-11-05 12:57作者：admin来源：未知人气：2093我要评论(0)

这是前几天一位朋友遇到的一个问题，要对彩/票做一些预测，他从网上导了每一期的开奖数据下来，格式为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有哪些常用的数学函数？​Excel取消表格中虚线的两种方法Excel最常见的「错误值」，这些含义你都知道吗？实现快速找出Excel表格中两列数据不同内容的3种方法！如何利用Excel一键提取身份证的这些重要信息，公式直接套用！Excel如何制作动态红绿灯，工作可不要亮红灯哦Excel身份证号大探索excel如何根据日期按月汇总计算公式Excel浪漫表白公式，发给心仪的她/他Excel表格如何自动求和

文章评论
发表评论

热门文章 excel 两表数据快速对比，高手都是这样做，四种方法随你选.xlsm是什么文件格式，以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式：用SUMPRODUCT和SUM函数计算加权平均

最新文章 Excel有哪些常用的数学函数？​Excel取消表格中虚线的两种方法 Excel最常见的「错误值」，这些含义你都知道吗？实现快速找出Excel表格中两列数据不同内容的3种方法！如何利用Excel一键提取身份证的这些重要信息，公式直接套用！Excel如何制作动态红绿灯，工作可不要亮红灯哦

人气排行 excel 两表数据快速对比，高手都是这样做，四种方法随你选.xlsm是什么文件格式，以及xlsm文件怎么打开的方法excel if函数如何多个条件并列excel中计算加权平均数的公式：用SUMPRODUCT和SUM函数计算加权平均excel中IF条件函数10大用法完整版,全会是高手,配合SUMIF,VLOOKUPexcel中COUNTIFS函数9种高级用法详解，条件统计重复值，告别加班涨工如何解除Excel VBA工程密码excel 如何根据身份证号码提取户籍所在省份地区函数公式

盖楼回复X

(您的评论需要经过审核才能显示)