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,第一个参数字节数组,第二个参数指定转换的