如何不使用公共变量向UserForm传递并返回变量？

核心问题在于UserForm_Initialize是系统自动触发的事件，无法手动传递参数，因此需要通过自定义初始化方法+模块级变量+公共属性的方式实现局部变量的传递与返回，具体代码调整如下：

1. 表单模块（form_vyberCesty）代码修改 #

' 模块级私有变量，存储传递的路径（局部作用域仅限表单内部）
Private m_cesta As String
Private m_cesta2 As String

' 自定义初始化方法，接收主过程传递的参数
Public Sub Init(ByRef initCesta As String, ByRef initCesta2 As String)
    m_cesta = initCesta
    m_cesta2 = initCesta2
    ' 初始化文本框显示初始路径
    TextBox1.Text = m_cesta
    TextBox2.Text = m_cesta2
End Sub

' 公共属性，供主过程读取修改后的路径
Public Property Get SelectedCesta() As String
    SelectedCesta = m_cesta
End Property

Private Sub CommandButton1_Click() ' 选择第一个路径
    m_cesta = TextBox1.Value
    Me.Hide ' 隐藏表单（而非卸载，保留对象以便读取属性）
End Sub

Private Sub CommandButton2_Click() ' 选择第二个路径
    m_cesta = TextBox2.Value
    Me.Hide
End Sub

Private Sub CommandButton3_Click() ' 取消操作，清空路径
    m_cesta = ""
    Me.Hide
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ' 处理用户点击表单右上角关闭按钮的情况，清空路径
    If CloseMode = vbFormControlMenu Then
        m_cesta = ""
    End If
End Sub

2. 主过程与调用过程修改 #

Sub test1()
    Dim cesta As String
    Dim cesta2 As String
    
    cesta = "d:\path1\path2\path3\"
    cesta2 = "d:\path4\path5\path6\"
    
    vyberCesty cesta, cesta2 ' 调用表单选择路径
    
    If cesta = "" Then Exit Sub
    ' 后续业务逻辑
End Sub

Sub vyberCesty(ByRef cesta As String, ByRef cesta2 As String)
    Dim frm As form_vyberCesty
    Set frm = New form_vyberCesty
    
    ' 调用自定义初始化方法传递局部变量
    frm.Init cesta, cesta2
    ' 模态显示表单，等待用户操作完成
    frm.Show vbModal
    
    ' 读取表单修改后的路径，回传给主过程的局部变量
    cesta = frm.SelectedCesta
    
    ' 清理表单对象
    Unload frm
    Set frm = Nothing
End Sub

关键逻辑说明 #

• 放弃UserForm_Initialize传递参数的尝试，改用自定义Init方法手动传递局部变量，避免系统事件的参数限制。
• 使用表单内部的模块级私有变量存储路径，确保变量仅在表单作用域内可见，替代公共变量。
• 通过Hide而非Unload关闭表单，保留表单对象以便主过程读取修改后的值，读取完成后再卸载表单释放资源。
• 参数传递使用ByRef，确保主过程的局部变量能被表单修改后的值覆盖。

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