VBA中如何通过字符串值实现点操作？能否引用对应窗体控件？

错误原因 #

你遇到的「Method or Data not found」编译错误，是因为trailForm.attrTB属于静态引用写法——VBA会直接查找窗体上名为attrTB的属性/控件，不会解析变量attrTB里的字符串（比如"trailNameTB"）去定位目标文本框。

修正方案 #

使用窗体的Controls集合，通过控件名称字符串动态访问目标文本框，再为其Value属性赋值。

基础修正代码（直接赋值数组元素字符串） #

如果你的需求是将数组中存储的字符串（如"trailName"）直接填入对应文本框，修正后的代码如下：

Sub getTrailInfo()
    Dim attr As Variant
    Dim attrTB As String
    Dim attrNames As Variant
    attrNames = Split("trailName,trailType,aSideSite,zSideSite,status", ",")
    Dim trailForm As New formTrailInfo
    
    For Each attr In attrNames
        attrTB = attr & "TB" ' 用&做字符串拼接，避免类型错误
        ' 通过Controls集合按名称定位文本框并赋值
        trailForm.Controls(attrTB).Value = attr
    Next attr

    trailForm.Show
End Sub

进阶场景（赋值同名变量的值） #

如果你的实际需求是将模块中与数组元素同名的变量的值（比如模块内有trailName = "环山步道"这样的变量）赋值给文本框，可以用CallByName函数获取变量值：

Sub getTrailInfo()
    Dim attr As Variant
    Dim attrTB As String
    Dim attrNames As Variant
    attrNames = Split("trailName,trailType,aSideSite,zSideSite,status", ",")
    Dim trailForm As New formTrailInfo
    Dim varValue As Variant
    
    For Each attr In attrNames
        attrTB = attr & "TB"
        ' 获取当前模块中对应变量的值（仅适用于类/窗体模块，标准模块需调整）
        varValue = CallByName(Me, attr, VbGet)
        trailForm.Controls(attrTB).Value = varValue
    Next attr

    trailForm.Show
End Sub

注意：如果代码在标准模块中，Me无法使用，建议将变量封装到类模块中，或用字典预先存储变量名与对应值。

关键修改点说明 #

• 使用Controls(attrTB)：通过控件名称字符串动态访问窗体控件，实现你需要的「变量名+TB」匹配逻辑。
• 用&替代+：+在VBA中可能触发数值运算，&能确保严格的字符串拼接，避免潜在报错。
• 显式声明变量：补充attrNames的类型声明，符合VBA良好编码规范。

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