7,785
社区成员




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