VB 中如何将输入的值写入到一个文本当中

感觉他们都是用OPEN，要先打开文档不太好，我给你写个，你试试

Option Explicit

Private Sub Command1_Click()

  Const ForReading = 1, ForWriting = 2

  Dim fso, f

  Set fso = CreateObject("Scripting.FileSystemObject")

  Set f = fso.OpenTextFile("c:estfile.txt", ForWriting)

  f.WriteLine "Text1:" & Text1

  f.WriteLine "Text2:" & Text2

End Sub

请先在C盘建一个文本文件，用来存内容

Set f = fso.OpenTextFile("c:estfile.txt", ForWriting)

这一句里面的地址"c:estfile.txt"即是你文本文件的名字和存的地方，比如你写"D：\aaa.txt"那么你的内容就会存在D盘的aaa.txt文件里面。

先要去D盘里面建一个aaa.txt文件哦

把这段代码放在按钮里面就好了。

Option Explicit

Private Sub Command1_Click()

End Sub

注意这三句可以不要，你把其他的放在按钮里面就好了。

在TEXT1和TEXT2里面写入数字，按按钮就会发现文本里面存好内容了

有问题可以HI我，来了就回答你

Sub tt()
Open "c:\pop.txt" For Append As #1
Write #1, text1.text
Write #1, text2.text
Close #1
End Sub

追加模式，保存原来的内容

Private Sub Command1_Click()
Open "c:\output.txt" For Output As 1
Print #1, "30"
Print #1, "100"
Close
End Sub

首先，打开一个文本文件，路径随便写，自动生成
然后用Print 写入字符，可以是Text1.Text
最后，用Close 关闭文件。
然后去指定的路径查看文件

open "C:\1.txt" for output as #1
print #1,"30"
print #1,"100"
close #1

open是打开你要操作的文件。
for output 是操作类型（因为要以文本的方式写入文件，所以用output)
as 后面的是文件的标识号，要以#开头，加上一个数。（因为你打开玩文件，要操作它，但是windows不知道你以后要操作的文件是哪一个，所以用一个标示符来表示要操作的文件）
print #1,文字
在标示符为#1的文件，写入要写的文字。
close #1
当你操作完了这个文件，要关闭了这个文件。

open "d:\output.txt" for output as #1

print #1 30
print #1 100

close #1