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

摘要：

这是前几天一位朋友遇到的一个问题，要对彩/票做一些预测，他从网上导了每一期的开奖数据下来，格式为TXT类型的，存放在一个文件夹里, 需要vba读取txt文件固定位置。如何VBA读取txt文件内容到excel呢？

如下：

其中每份文件的格式都相同，如下：

现在的要求是：把这些数据导入到Excel中去，导入后格式是这样的：

Excel计算两个日期相差的年数、月数、日数? excel求差函数

在计算工龄、发票报销期限等日期计算应用中，经常要求两个日期的时间差以0年0个月0天的样式表现。Excel计算两个日期相差的年数、月数、日数?示例13-47计算员工在职时长图13-71为某公司离

每一期的数据占一列，而且是隔列存放，因为中间空出一列要提取开奖号码的后三位数字，凡是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

最终效果如下：

如果你的经常使用Excel做大量重复的事情，掌握点VBA的技术会让你节约很多时间，有更多的时间做其它更有意义的事情。

excel中if函数的使用方法及实例? excel if函数条件为中文

问题：excel中if函数的使用方法及实例有知友提问：Excel中关于IF函数的一个小问题？如果A栏是男，那么C栏等于B栏加上10，如果是女，那么C栏等于B栏加上5。如何写公式知友的问题描述是这样