Sub ttt()
Dim fso As New FileSystemObject
Dim ts As TextStream
Dim aData
Set ts = fso.OpenTextFile("c:\1.txt")
aData = Split(ts.ReadAll, bCrLf)
MsgBox aData(39)
MsgBox aData(40)
MsgBox aData(41)
End Sub
运行时提示下标越界，请高手指点一下

确认你的文本文件有42行?

有的

增加一句
MsgBox UBound(aData)
MsgBox aData(39)
MsgBox aData(40)
MsgBox aData(41)

应该是VBCRLF不是Bcrlf

谢谢指点 解决了 谢谢楼上的