Open csvFileName For Input As #1

　　Dim lineChanger as String

　　lineChanger = Chr(13)

　　fileData = http://www.mamicode.com/Split(StrConv(InputB(LOF(1), 1), vbUnicode), lineChanger)

Close #1

LOF(1)， length of file即文件的字节数

InputB，参数1，要读取的字节数；参数2，要读取的文件序号。

StrConv，第一个参数字节数组，第二个参数指定转换的标准

Split，按照lineChanger截取字符串

fileData，数组

VBA 打开一个string指定的文件