如何将VBA代码从Collection改为Array？解决“无法分配给数组”报错

错误原因 #

• 数组属于值类型，不能用Set关键字赋值，原代码里Set filterNLOB = SelectedItems(...)和Set SelectedItems = col都是错误用法，直接用=即可。
• VBA普通数组没有.Add方法，原代码中col.Add lb.List(i)混淆了Collection的操作逻辑，数组需要通过索引位置来赋值元素。
• 定义固定长度数组col(0 To lb.ListCount - 1)不合理，选中项数量通常少于总项数，会导致数组存在大量空元素，应该使用动态数组按需调整大小。

正确改写方案 #

修正后的完整代码 #

Private Sub cmdB_PrepareFile_Click()
    Dim filterNLOB() As Variant
    filterNLOB = SelectedItems(Me.lstB_NLOB)
End Sub

'return an array of selected items from `lb`
Function SelectedItems(lb As MSForms.ListBox) As Variant
    Dim selectedCount As Long
    Dim i As Long
    Dim resultArr() As Variant
    
    '先统计选中项的数量
    For i = 0 To lb.ListCount - 1
        If lb.Selected(i) Then
            selectedCount = selectedCount + 1
        End If
    Next i
    
    '处理无选中项的边界情况
    If selectedCount = 0 Then
        SelectedItems = Array()
        Exit Function
    End If
    
    '初始化动态数组的大小
    ReDim resultArr(0 To selectedCount - 1)
    
    '填充选中项到数组中
    selectedCount = 0 '重置计数器作为数组索引
    For i = 0 To lb.ListCount - 1
        If lb.Selected(i) Then
            resultArr(selectedCount) = lb.List(i)
            selectedCount = selectedCount + 1
        End If
    Next i
    
    SelectedItems = resultArr
End Function

代码说明 #

1. 先遍历ListBox统计选中项数量，避免数组出现多余空元素。
2. 使用ReDim动态调整数组大小，完全匹配选中项的数量。
3. 用=直接完成数组赋值，摒弃错误的Set关键字。
4. 处理了无选中项的边界场景，返回空数组避免后续逻辑出错。

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