写入 TXT 文件？

Question

所以我在 VBA 上有一个用户表单，我正在制作一个龙与地下城风格的助手，你按下按钮，每个统计数据都会为你决定，但我想让它这样，一旦你滚动了这些统计数据，他们就可以保存在文本文件夹中并以正确的方式再次打开。

所以，我有 3 个不同的统计数据。敏捷、技巧和力量。目前代码的工作原理如下：

Private Sub agilitybutton_Click()
agility.Caption = Int(10 + ((Int((12 - 1 + 1) * Rnd + 1)) / (Int((4 - 1 + 1) * Rnd + 1))))
End Sub

Private Sub skillbutton_Click()
skill.Caption = Int(10 + ((Int((12 - 1 + 1) * Rnd + 1)) / (Int((4 - 1 + 1) * Rnd + 1))))
End Sub

Private Sub strengthbutton_Click()
strength.Caption = Int(10 + ((Int((12 - 1 + 1) * Rnd + 1)) / (Int((4 - 1 + 1) * Rnd + 1))))
End Sub

因此每个数字都是两个随机整数的除法，然后进行四舍五入。第一个数字介于 1 和 12 之间，第二个数字介于 1 和 4 之间。第一个数字除以第二个数字，并显示在按钮旁边的标题中。

我想让每个技能都有字幕。（strength.caption、skill.caption 和 Agility.caption）都保存在一个 txt 文件中，我只需按一个按钮即可命名该文件。

我该怎么做呢？

Answer 1

操作文本文件最灵活的方式是ADODB.Stream对象。以下是简单文本输出的示例代码：

TextOutput = "Hello World!"
FilePath = "C:\output.txt"
Set FileStream = CreateObject("ADODB.Stream")
FileStream.Open
FileStream.Type = 2 'Text
FileStream.Charset = "utf-8"
FileStream.WriteText TextOutput
FileStream.SaveToFile (FilePath)
FileStream.Close

了解更多：ADO Stream 对象和示例二进制到文本转换：/sf/answers/999959201/