Dim CurData() As Double ‘该句定义一个数组’ ‘若直接定义二维数组时,必须知道行、列为多少,否则无法定义。’
Dim SplitData() As String
Open sFile For Input As #1
Do While Not EOF(1)
Line Input #1, inputdata
If inputdata <> "" Then
SplitData = Split(inputdata, ",")
End If
n = UBound(SplitData) + 1
Loop
MsgBox n
Close #1
numCol = (n + 1) / 40
ReDim CurData(numCol, 40) ‘需要用到时将其ReDim一个可以确定行数、列数的多维数组’
For i = 1 To numCol
For j = 1 To 40
CurData(i, j) = SplitData((i - 1) * 3 + (j - 1))
Next
Next
MsgBox CurData(1, 1)
End Sub