如何从含动态名称文本框的UserForm提取文本并存入数组？

嘿，我之前也踩过这个坑！你完全不用费劲把字符串转换成命令——VBA本身就提供了更安全、直接的方式来引用动态生成的控件，根本没必要折腾字符串拼接执行那一套。

问题根源 #

你可能尝试过类似这样的写法：

arr(i) = "TextBox" & i & ".Value"

这当然只会把"TextBox1.Value"这种字符串存进数组，而不是文本框里的实际内容。核心问题是你需要的是控件对象的引用，而不是字符串拼接出来的文本。

正确的解决方案：使用Controls集合 #

UserForm的Controls集合可以通过控件名称直接引用对象，不管控件是静态添加的还是动态生成的。只要你给动态文本框的命名规则统一（比如TextBox1、TextBox2...），就能轻松获取它们的值并存入数组。

举个实际的代码例子：

Private Sub cmdSaveToArray_Click()
    Dim txtContentArr() As String
    Dim totalTextBoxes As Integer
    Dim i As Integer
    
    ' 替换成你动态生成的文本框总数
    totalTextBoxes = 3
    
    ' 初始化数组大小
    ReDim txtContentArr(1 To totalTextBoxes)
    
    For i = 1 To totalTextBoxes
        ' 先检查控件是否存在，避免报错
        If Me.Controls.Exists("DynamicTextBox" & i) Then
            txtContentArr(i) = Me.Controls("DynamicTextBox" & i).Value
        Else
            ' 控件不存在时的默认值
            txtContentArr(i) = ""
        End If
    Next i
    
    ' 测试输出数组内容（可选）
    For i = 1 To totalTextBoxes
        Debug.Print "第" & i & "个文本框内容：" & txtContentArr(i)
    Next i
End Sub

额外说明 #

1. 如果你的动态文本框是在模块中生成的，而非UserForm的代码里，引用时要加上UserForm的名称，比如：

   UserForm1.Controls("DynamicTextBox" & i).Value
   

2. 别用Eval或ExecuteGlobal这类方法——它们不仅不安全（容易引入代码注入风险），而且完全没必要，Controls集合就是为这种场景设计的。
3. 动态生成控件时，最好把所有控件名称记录到一个列表里，后续遍历这个列表会更稳妥，避免出现命名断档（比如缺了TextBox2）的问题。

这样操作下来，你就能轻松把动态文本框的内容存入数组，再也不用纠结字符串转命令的问题啦！

内容的提问来源于stack exchange，提问作者Stuart