您现在的位置是:主页 > VBA >
VBA读取txt文件内容到excel,vba读取txt文件固定位置
发布时间:2023-10-15 04:46:20所属栏目:VBA 已帮助人编辑作者:Excel自学教程
这是前几天一位朋友遇到的一个问题,要对彩/票做一些预测,他从网上导了每一期的开奖数据下来,格式为TXT类型的,存放在一个文件夹里, 需要vba读取txt文件固定位置。如何VBA读取txt文件内容到excel呢?
如下:
其中每份文件的格式都相同,如下:
现在的要求是:把这些数据导入到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的技术会让你节约很多时间,有更多的时间做其它更有意义的事情。
以上就是excel自学教程为您提供VBA读取txt文件内容到excel,vba读取txt文件固定位置的解读,本文章链接: http://www.5enet.cn/Excel_VBA/77530.html 欢迎分享转载,更多相关资讯请前往VBA
相关文章
- Excel VBA 窗体之添加最大最小化按钮 实现代码
- excel中vba的属性和方法,以及属性方法的区别
- Excel VBA 窗体之去除窗体关闭按钮 实现代码
- VBA读取txt文件内容到excel,vba读取txt文件固定位置
- excel VBA那点事之自动排班
- excel 隔行插入一行的两种方法,通过技巧和VBA操作来实现excel隔行插入一行
- Excel VBA 窗体之特殊形状窗体 几何形状组合窗体 实现代码
- excel中vba变量类型和dim语句进行一些小结
- VBA非登陆下载Excel文件并处理例子
- excel VBA中textbox的MaxLength属性限制文本框输入长度的设置方法
猜你喜欢
excel利用VBA转化公式中区域的引用类型
Excel公式中对区域或单元格的引用有多种引用类型,如: $A$1 绝对行和绝对列...excel 合并工作表的方法,用VBA代码实现合并工作表
下图所示:一个文件夹下面有多个excel工作薄,每个工作薄文件下面有不固定张...excel VBA字典技术_excel按类别拆分工作簿
工作中有时候需要将一张表格拆分为若干个新表,如下图为某电商销售信息表...excel vba if判断语句的使用方法,在最后以一个实例来剖析vba if语句的具体应用
vba if语句为判断语句。根据条件的值,可使用 If...Then...Else 语句运行指定的语...
企业IT外包服务
COUNT函数使用策略
Excel表格怎么算乘法
怎样清除Excel单元格中看不见的字符串
Excel中LEN函数的语法和用法
excel 如何删除数据
excel 如何快速将公式值转数值
excel 如何利用分列快速提取出生年月日
excel如何利用最简单的方法批量制作条形码?
excel 不能自动求和的6大原因,并同时针对不同原因给出不同的解决方法来处理
如何在Excel单元格中快速输入“√ 勾”?
Excel单元格内如何换行,这几招快拿小本本记下来
Excel 2019打印特定区域的3种方法图解教程
如何在Excel中一次打开多个链接 如何在Excel中使用VBA宏打开多个超链接
Excel中如何不复制隐藏的单元格
?Excel如何去除自动出现的人民币符号
扫码关注
- 专注IT行业,10年IT行业经验