批量读取txt文件将数据放进一个数组里面

watchandlearn · 发表于 2013-2-20 16:10

名称       日期                数量
aaa    2012-0101       55555
.....    ...........                ..........
D:\readtxt\里面有50个txt文件
格式都是上面所示的3列数据内容
现在想把这50个txt文件里面的3列数据（其实就是把50个txt按次序合拼）
连续的存放在一个arr（i,3）3维数据里面
应该怎么实现这个功能

ccwan · 发表于 2013-2-20 16:16

请上传附件
纠正一下，你所说的arr是二维数组。

zhaogang1960 · 发表于 2013-2-20 16:22

请参考:

Sub Macro1()
Dim f$, s() As String, a, arr(1 To 65536, 1 To 3), i&, j&, m&, p$
p = "D:\readtxt"
f = Dir(p & "*.txt")
While f > ""
Open ThisWorkbook.Path & "" & f For Input As #1
s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
Close #1
For i = 0 To UBound(s)
If InStr(s(i), Chr(9)) Then '分隔符为制表符
m = m + 1
a = Split(s(i), Chr(9))
For j = 0 To 2
arr(m, j + 1) = a(j)
Next
End If
Next
f = Dir()
Wend
End Sub

复制代码

wuque214 · 发表于 2013-2-20 16:27

提取50个文件名
MyFile = Dir(MyPath & "\")
Do While MyFile <> ""
MyFile = Dir
Loop

依次读取文件并按照行劈开
Open MyFile For Input As #1
Arr_Data = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset
Close #1

按照空格逐行劈开
Split(Arr_Data(X - 1), " ")(0)
Split(Arr_Data(X - 1), " ")(1)
Split(Arr_Data(X - 1), " ")(2)

Zamyi · 发表于 2013-2-20 16:34

本帖最后由 Zamyi 于 2013-2-20 16:36 编辑

Sub Tq()
ReDim a(1 To 10000, 1 To 3) '要足够大
Dim Fs As New FileSystemObject
p = "D:\readtxt"
For Each f In Fs.GetFolder(p).Files
If f Like "*.TXT" Then
With Fs.OpenTextFile(f)
.ReadLine
While Not .AtEndOfLine
n = n + 1:j=0
For Each c In Split(.ReadLine)
j = j + 1
a(n, j) = c
Next
Wend
End With
End If
Next
End Sub

复制代码

Allen2018 · 发表于 2017-6-23 12:17

zhaogang1960 发表于 2013-2-20 16:22
请参考:

While f > ""，老师能注释下吗？

wanao2008 · 发表于 2023-4-14 06:58

必须为ExcelHome的每一位积极回答问题的网友点赞！！
是你们的无私奉献，
让来提问题的得到了满意的答案，
让来学习的，学到了更多的知识，
在我郁闷时，你们的抬杠、拌嘴能让我笑一天，
在我思绪受阻时，看到你们的回答立马心清思爽，

最高端的就是这种无附件还能提供解决代码的网友，
希望在EH能永远见到你们，因为这是一种幸福！！！！

		自动登录	找回密码
密码			免费注册

[求助] 批量读取txt文件将数据放进一个数组里面

评分

评分

评分