用vba如何提取多个txt文件数据？

Question

请问高手们如何用vba提取多个txt文件中的某个数据？读取到excel生成一列！

Answer 1

应《中华人民共和国网络安全法》要求，自2017年6月1日起，使用互联网服务需进行帐号实名认证。为保障您的百度帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持。
如何用VBA 从TXT文件中提取相关数据输入excel表格？
我的TXT文件结构如下 P000000001987456 C0000000024835410020101103002018000020101102 C0000000034824360020101102002018000020101101 T0000000040000000000000000000000000000000000 解释如下： P000000001987456： 这是整个TXT文件的第一行，7个零后...展开
我明白可以用导入数据的形式把TXT文件导入到excel 表格(XLS),但是我还是希望能用VBA来处理，因为我给的例子只是数据的一部分，每行数据还包含很多其它内容，而我只想提取相应的部分。谢谢大家。

xfwxiao | 浏览 6831 次

我有更好的答案
发布于2010-11-10 14:32最佳答案
Public Sub abc()
Dim filename, inputstring As String
Dim i As Integer
Dim data
i = 1
filename = "d:\WYKS.txt" '本列TXT文件放在D盘中
Open filename For Input Access Read As #1
Do While Not EOF(1)
Line Input #1, inputstring '读TXT文件一行
data = inputstring
If i <> 1 Then
Cells(i - 1, 1) = Mid(data, 11, 6) '截取从第11个字符后6个字符
Cells(i - 1, 2) = Mid(data, 19, 8) '截取从第19个字符后8个字符
Cells(i - 1, 3) = Mid(data, 29, 6) '截取从第29个字符后6个字符