怎样用VBA实现把文本数据读入数组？

zzz8662 · 发表于 2004-3-26 20:25:00

怎样用VBA实现把数据读入数组？
数据格式.txt文件
12，23，32
56，58，47，
7，8，66
。。。。。。

my_computer · 发表于 2004-3-26 22:22:00

你要那种：
1                      list(0) = 12;list(1)= 23;list(2)=32;list(3) = 56...........

2       list(0,0)=12;list(0,1)= 23;list(0,2)=34;list(1,0)= 56;list(1,1)=58.....

zzz8662 · 发表于 2004-3-27 10:34:00

还是不明白。我要通过程序来进行的。要一次性读入。

myfreemind · 发表于 2004-3-27 13:39:00

2楼给的就是程序

mccad · 发表于 2004-3-27 13:52:00

2楼给的不是楼主要的程序。

myfreemind · 发表于 2004-3-27 16:06:00

楼主用这个吧，如果是多列就改j的值
Sub tt()
Dim i As Integer
Dim j As Integer
Dim hz As Variant
Dim hsz() As Double
Dim ltext() As Variant
Dim textline() As String
i = 1
Open "l:\tt.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve textline(i)
ReDim Preserve ltext(i, 2)
Line Input #1, textline(i)
hz = Split(textline(i), ",")
For j = 0 To 2
ltext(i, j) = hz(j)
'Debug.Print ltext(i, j)
Next
Loop
End Sub