Open CommonDialog1.filename For Binary As #1
DoEvents
hang = Split(Input(LOF(1), 1), vbCrLf) 'input(lof(1),1)是文件全部内容
Close #1
hangyuan = Split(hang(0), vbTab)
ReDim yuansu(UBound(hang), UBound(hangyuan))
For i = LBound(hang) To UBound(hang) - 1
hangy = Split(hang(i), vbTab)
For j = LBound(hangyuan) To UBound(hangyuan)
DoEvents
'存放行分裂
yuansu(i, j) = Val(hangy(j)) '二维数组赋值完毕
Next
Next这样才能读到二维数组,