VBA动态获取文本框值：循环代码失效，需实现动态取值

嘿，这个坑我之前踩过！你直接用ReportName(i)的方式是行不通的，原因很简单：VBA里的控件变量是静态生成的，没办法通过这种索引后缀的方式动态引用。而你直接写ReportName1能正常工作，是因为VBA已经为这个名称的控件自动创建了对应的变量，但这种变量没法循环复用。

正确的解决方法：用Controls集合动态拼接控件名称 #

你需要通过控件所在容器（这里是Frame6）的Controls集合，把控件名称拼接成字符串来动态获取控件，然后再读取它的Value属性。修改后的代码如下：

For i = 1 To TotalSheets
    ' 拼接控件名称，比如ReportName1、ReportName2...
    Dim ctrlName As String
    ctrlName = "ReportName" & i
    
    ' 先判断控件是否存在，避免报错
    If ValidationForm.Frame6.Controls.Exists(ctrlName) Then
        ReqValue = ValidationForm.Frame6.Controls(ctrlName).Value
        ' 在这里添加你对ReqValue的处理逻辑，比如存储到数组或者做校验
    Else
        ' 可选：如果找不到控件，弹出提示或者做容错处理
        MsgBox "未找到控件：" & ctrlName, vbExclamation
    End If
Next i

关键注意事项 #

• 确保你的控件Name属性确实是ReportName1、ReportName2这种格式（检查一下窗体设计器里的控件名称，别拼写错）
• TotalSheets的数值要和实际存在的ReportNameX控件数量匹配，不然会触发找不到控件的提示
• 添加Controls.Exists(ctrlName)的判断很重要，可以避免程序因找不到控件而崩溃

内容的提问来源于stack exchange，提问作者Student of the Digital World