这个问题我之前也碰到过！你现在的写法行不通，核心原因是你把FormName存成了字符串变量，但VBA没法直接把字符串识别成窗体对象，自然就访问不到它的TextBox属性了。下面给你两种实用的解决方案：

方案1：直接赋值窗体对象（适合固定数量的窗体） #

如果你的窗体数量不多，直接把targetForm声明为对象类型，直接赋值对应的窗体实例就行，代码更直观：

Dim targetForm As Object
Dim number As Integer
number = 2 ' 这里替换成你的实际数值

Select Case number
    Case 1: Set targetForm = Form1
    Case 2: Set targetForm = Form2
    Case 3: Set targetForm = Form3
End Select

' 直接访问控件赋值
targetForm.TextBox.Value = 1
' 如果需要显示窗体，加上这句：
' targetForm.Show

这种方法不需要额外判断窗体是否加载，赋值时VBA会自动加载未打开的窗体。

方案2：使用Forms集合（适合动态指定窗体名） #

如果你需要更灵活的动态调用（比如从配置文件读取窗体名），可以用VBA内置的Forms集合来通过字符串获取窗体实例：

完整代码示例 #

Dim FormName As String
Dim number As Integer
number = 1 ' 替换成你的实际数值

' 给窗体名变量赋值
Select Case number
    Case 1: FormName = "Form1"
    Case 2: FormName = "Form2"
    Case 3: FormName = "Form3"
End Select

' 先检查窗体是否已加载，未加载则先加载
If Not IsLoaded(FormName) Then
    Load UserForms.Add(FormName)
End If

' 通过Forms集合访问窗体控件
Forms(FormName).TextBox.Value = 1
' 需要显示窗体的话：
' Forms(FormName).Show

补充IsLoaded辅助函数 #

上面用到的IsLoaded函数用来判断窗体是否已经加载，避免重复加载或报错，需要单独放在模块里：

Function IsLoaded(formName As String) As Boolean
    Dim frm As Object
    ' 遍历所有已加载的窗体
    For Each frm In Forms
        If frm.Name = formName Then
            IsLoaded = True
            Exit Function
        End If
    Next frm
    IsLoaded = False
End Function

关键注意点 #

• 确保你的窗体里确实存在名为TextBox的控件，如果控件名不同（比如TextBox1），要替换成实际的控件名称；
• 如果窗体是UserForm类型，上面的代码完全适用，VBA的Forms集合包含所有加载的用户窗体。

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