vba读取txt文件

Dim objStream, strData
Set objStream = CreateObject("ADODB.Stream")
objStream.Charset = "utf-8"

‘ LINUX 换行符 objStream.LineSeparator = 10  默认是 -1 回车换行符

objStream.Open
objStream.LoadFromFile ("C:UsersAdministratorDesktoptest.txt")

rowNo = 1
Do While Not (objStream.EOS)
    Worksheets("Sheet1").Cells(rowNo, 1).Value = objStream.ReadText(-2) 
    rowNo = rowNo + 1
Loop


' 关闭
objStream.Close
Set objStream = Nothing