Question

所以我在VBA上有一个Userform，我正在制作一个Dungeons＆amp;你按下按钮的龙风格助手，每个统计数据都是为你决定的，但是我想让它一旦你滚动这些统计数据，它们就可以保存在文本文件夹中并以正确的方式再次打开。

所以，我有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 Object并将二进制文本转换为文本转换：https://stackoverflow.com/a/14285131/1953175

写入TXT文件？

1 个答案: