PublicFunctionopenfile(ByValfilepathAsString)AsString
DimsAsString
OpenfilepathForInputAs#1
WhileNotEOF(1)
LineInput#1,sline
s=s&sline&vbCrLf
Wend
Close#1
openfile=s
EndFunction
如果是按一行一行读取进数组你可以用
dima
a=split(openfile(App.Path&"\1.txt"),vbcrlf)
按列同样是设一个临时数组每行按空格或者分隔符拆分后以对应数组索引位置写入新数组
