7,789
社区成员
发帖
与我相关
我的任务
分享

Dim adostream As New ADODB.Stream
With adostream
.Type = adTypeText
.Mode = adModeReadWrite
.Charset = "utf-8"
.Open
.LoadFromFile "c:\22.txt"
Text1 = .ReadText '该Text1控件为Microsoft Forms 2.0里面的TextBox
.Close
End With
Set adostream = Nothing