数据文件未被读取

Question

这是我的代码：

Open "Data.txt" For Input As #1

N = 1

While Not EOF(1)

  ReDim DataName(N)
  ReDim Data(N, Max_Time_Point)
  ReDim line(N)

  Input #1, line(N)
  DataName(N) = Split(line(N))(0)
  For j = 1 To Max_Time_Point
      Data(N, j) = Split(line(N))(j)
      Debug.Print "data", N, j, Data(N, j)
  Next j
  N = N + 1
Wend

Data.txt看起来像这样

First 7 3 1 4 8
Seconds 3 6 10 5 4
...

我的问题是debug语句打印出我所期望的，数据被填充到矩阵Data（）中。但是当我退出循环时，Data（）只填充其最后一行（最后一行数据，Data.txt只到第六行）。发生了什么事？

编辑：我认为我发现了问题 - 我认为这是ReDim语句将所有值重置为0。

Answer 1

替换

ReDim Data(N)

与

ReDim Preserve Data(N)