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

watchandlearn

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

ccwan

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

zhaogang1960

请参考:

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

复制代码

wuque214

提取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

1. Sub Tq()
   
2. ReDim a(1 To 10000, 1 To 3) '要足够大
   
3. Dim Fs As New FileSystemObject
   
4. p = "D:\readtxt"
   
5. For Each f In Fs.GetFolder(p).Files
   
6.   If f Like "*.TXT" Then
   
7.     With Fs.OpenTextFile(f)
   
8.       .ReadLine
   
9.       While Not .AtEndOfLine
   
10.         n = n + 1:j=0
    
11.         For Each c In Split(.ReadLine)
    
12.           j = j + 1
    
13.           a(n, j) = c
    
14.         Next
    
15.       Wend
    
16.     End With
    
17.   End If
    
18. Next
    
19. End Sub

复制代码

Allen2018

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

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

wanao2008

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

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