VBA Excel 用户表单输出到 Txt 文件

Question

我正在尝试创建一个接受用户输入并打印到文本文件的用户表单。 我知道用于打印、存储字符串等的 VBA 脚本函数。但我是用户表单的新手。 如何将输入和输出限制为文本文件？ 添加到同一个文件？

输入和输出：

我需要有各种各样的

主要特点：

1. 限制输入： XXXX 表示只能输入 4 个字符（记事本文件只能是某些字符长

2. 多个条目：在文本文件中输入一组记录后，它们的值被存储并允许另一个输入。 此外，新条目必须写入下一行的同一个文件

3. 空格如果留空：如果 XXXX 留空，则应打印四个“”。

如果您有这些答案的一部分或全部，我希望收到您的来信！

---------------------------编辑添加代码------------------- ----------

Private Sub Userform_Initialize()

'Fill Eggs
With Eggs
    .AddItem "Eggs"
End With

End Sub

Private Sub CreateList_Click()

Dim myFile As String, myString As String
myFile = "C:\Reformatted.txt"
Open myFile For Output As #1

Dim fourChars As String * 4
fourChars = Milk.Value

myString = Eggs.Value + Milk.Value + Bread.Value

Print #1, myString

Close #1
Shell "C:\Windows\Notepad.exe C:\Reformatted.txt", 1

End Sub

所以上面的代码启动了这个屏幕：

Answer 1

TextBox 具有MaxLength属性。 默认设置为0 ，不限制字符输入。
要将条目限制为某个数字，只需将此属性的值更改为该数字即可。

现在用空白替换XXXX （如果没有输入或输入少于 4），请在评论中接受 SO 建议。

Dim fourChars As String * 4
fourChars = TextBox1.Value
MsgBox Len(fourChars) ' will always return 4