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