卸载VBA用户窗体时字符串数组无法导出的问题

核心问题根源 #

你遇到的数组数据无法传递到主模块的问题，主要是全局变量声明错误导致的：VBA中如果在一行声明多个变量，只有最后一个变量会应用As String类型，前面的变量默认是Variant类型。这种类型不匹配会导致窗体中赋值的数据无法正确保存到全局数组，卸载窗体后数据丢失。

另外原代码中数组初始化逻辑存在缺陷，会导致数组出现空元素，且多次ReDim Preserve影响性能。

步骤1：修正全局数组声明 #

在主模块（如Module1）中，将变量分开声明，确保每个数组/变量都是String类型：

' 主模块中的全局声明
Public defs As String
Public prer_list() As String
Public sum_list() As String
Public other_list() As String

步骤2：优化用户窗体代码 #

修改用户窗体中CommandButton1_Click的逻辑，先计数勾选数量再一次性初始化数组，避免空元素和频繁重定义：

Private Sub CommandButton1_Click()
    Dim obj As Control
    Dim prerCount As Integer, sumCount As Integer, otherCount As Integer
    
    ' 第一步：统计各类勾选的复选框数量
    prerCount = 0
    sumCount = 0
    otherCount = 0
    defs = "" ' 重置defs变量
    
    For Each obj In Me.Controls
        If TypeName(obj) = "CheckBox" And obj.Value = True Then
            Select Case True
                Case obj.Caption Like "*type1*"
                    prerCount = prerCount + 1
                Case obj.Caption Like "*type2*"
                    sumCount = sumCount + 1
                Case obj.Caption Like "*Definitions*"
                    defs = obj.Caption
                Case Else
                    otherCount = otherCount + 1
            End Select
        End If
    Next obj
    
    ' 第二步：根据计数初始化数组（避免空元素）
    If prerCount > 0 Then
        ReDim prer_list(1 To prerCount) ' 使用1-based索引更直观
    Else
        ReDim prer_list(0 To -1) ' 定义为空数组
    End If
    
    If sumCount > 0 Then
        ReDim sum_list(1 To sumCount)
    Else
        ReDim sum_list(0 To -1)
    End If
    
    If otherCount > 0 Then
        ReDim other_list(1 To otherCount)
    Else
        ReDim other_list(0 To -1)
    End If
    
    ' 第三步：遍历填充数组
    prerCount = 1
    sumCount = 1
    otherCount = 1
    
    For Each obj In Me.Controls
        If TypeName(obj) = "CheckBox" And obj.Value = True Then
            Select Case True
                Case obj.Caption Like "*type1*"
                    prer_list(prerCount) = obj.Caption
                    prerCount = prerCount + 1
                Case obj.Caption Like "*type2*"
                    sum_list(sumCount) = obj.Caption
                    sumCount = sumCount + 1
                Case ElseIf obj.Caption Like "*Definitions*"
                    ' defs已在第一步赋值，无需重复操作
                Case Else
                    other_list(otherCount) = obj.Caption
                    otherCount = otherCount + 1
            End Select
        End If
    Next obj
    
    Unload Me
End Sub

步骤3：主模块调用示例 #

在主模块中编写调用窗体的代码，即可正常访问全局数组的数据：

Sub GetFormData()
    UserForm1.Show ' 显示窗体，用户操作完成后关闭
    
    ' 输出defs内容
    Debug.Print "Definitions: " & defs
    
    ' 输出prer_list内容
    Debug.Print vbNewLine & "Type1列表:"
    If UBound(prer_list) >= 0 Then
        Dim i As Integer
        For i = LBound(prer_list) To UBound(prer_list)
            Debug.Print prer_list(i)
        Next i
    Else
        Debug.Print "无勾选项"
    End If
    
    ' 同理可输出sum_list和other_list
End Sub

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