Open csvFileName For Input As #1
Dim lineChanger as String
lineChanger = Chr(13)
fileData = Split(StrConv(InputB(LOF(1), 1), vbUnicode), lineChanger)
Close #1
LOF(1)， length of file即文件的字节数
InputB，参数1，要读取的字节数；参数2，要读取的文件序号。
StrConv，第一个参数字节数组，第二个参数指定转换的标准
Split，按照lineChanger截取字符串
fileData，数组