VBA读取txt文件内容到excel，vba读取txt文件固定位置
发布时间：2022-08-10 16:02:33
标签：vba读取txt文件,VBA读取txt文件内容到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
0
投稿猜你喜欢
- 在演示PowerPoint课件时，如果要实现以下特殊功能，不必专门停下讲解而特意通过菜单调用，敲一下键盘上的某一键便可实现，一点也不影响讲课
怎么把Excel中多个单元格内容合并一起？要将文本格式和数据格式的单元格合并怎么做呢？1、在要合并的单元格上输入公式“=A3&TEX- win11的编辑组策略器是是一项十分实用的功能。用户可以在这里完成系统设置调整，功能删减、自动更新开关等多项方便的操作。但是有不少用户发现在
- 最近有网友问小编Excel2021怎么隔行填充颜色？这篇文章主要介绍了Excel2021隔行填充颜色方法,需要的朋友可以参考下Excel20
- Excel是一个用的办公软件，是办公人员必备的。有的时候在用excel的时候需要加快工作效率利用到各种函数，今天小编给大家介绍Excel中V
- 有时候我们在办公使用word的时候，经常会碰到word文件损坏打不开的情况，接下来word损坏打不开的解决方法，欢迎大家来到学习。word损
- 在Excel中复制 粘贴表格经常会出现“#REF!”的标志原因：复制的表格中带有公式方法：选择性粘贴步骤：第一步：如图是待复制的列第二步：很
- Win10任务栏上的通知小图标经常会出现异常，有时候删除的程序也会在上面，或者图标无法点击等等，那么如何修复这些异常呢？系统部落教大家一个修
- 当我们的电脑配置低或运行了需要大内存的软件就很容易出现卡顿的情况。近期有部分Win11用户对于电脑运行卡顿问题很是苦恼，不知道应该如何解决是
- 还在 Word 长文档中一段段设置格式？现在开始培养「样式」意识，学会把活交给 Word 哥！01还原一个真实的故事W 君将一份上百页的文档
- 大家有遇到过描述文件无法删除的情况吗？App Store的审核制度非常严格的，稍不合规格的APP都无法上架的。开发者们为了让这些A
- scrfs.exe是Symbian连接程序。用于电脑与手机的连接进程文件： scrfs or scrfs.exe 进程名称： Symbian
- 相信有不少用户都遇到过端口占用的情况，这是怎么回事呢？出现这一情况有可能是因为应用程序需要使用的TCP/UDP端口被其它程序、或者病毒木马占
- wps怎么做ppt？最近有小伙伴们在后台私信小编说想询问一下小编关于wps制作ppt的方法教程，表示自己不知道如何进行操作，那还不清楚怎么用
- 当一个excel工作表被共享后，可以由多人共同编辑填写这个工作表的数据，这时候为了防止不留神修改了他人负责填写的工作表区域，就可以对exce
- 我们在对各种数据进行编辑和处理时，一般都会需要进行各种排序，比如按照职位进行排序，按照姓氏拼音进行排序，按照绩效考核成绩进行排序，按照比赛评
- windows7中怎样把文件设置共享文件？公司的电脑都是同个局域网，通过共享文件夹可以实现文件之间的查看，那么在win7系统中，要怎么把文件
- 有时候在Word中制作的表格大大小小不等,这样在录入文字较多的时候会自动换行,表格的行高将会跟着变大，下面小编就为大家详细介绍Word使文字
- word中实现艺术字的效果很简单，我们只需要插入艺术字即可。具体操作如下：步骤：用鼠标选中需要设置艺术字的文本->点击word菜单栏中
- 咪萌桌面宠物是一款非常有趣的桌面应用软件。你们知道咪萌桌面宠物中桌面怎么显示宠物的吗？接下来我们一起往下看看咪萌桌面宠物中桌面显示宠物的方法
