本示例展示了如何使用VBA从指定路径读取文本文件内容，并将读取到的数据追加到一个字符串变量中，最后显示最近一次读取的一行数据。
Private Sub Form_Load()
Dim data As String
Dim buffer As String
Open "d:\stud.txt" For InputAs #1
Do While Not EOF(1)
Line Input #1, buffer
data = data + buffer
Loop
Close #1
Text1.Text = buffer
End Sub
Dim data As String
Dim buffer As String
Open "d:\stud.txt" For InputAs #1
Do While Not EOF(1)
Line Input #1, buffer
data = data + buffer
Loop
Close #1
Text1.Text = buffer
End Sub
扫一扫
985
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
