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,数组
时间: 2024-11-07 13:27:14