Public Function openfile(ByVal filepath As String) As String
Dim s As String
Open filepath For Input As #1
While Not EOF(1)
Line Input #1, sline
s = s & sline & vbCrLf
Wend
Close #1
openfile = s
End Function
如果是按一行一行读取进数组 你可以用
dim a
a = split(openfile(App.Path & "\1.txt"),vbcrlf)
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024