如何用ListBox多选项填充数组？Access适配代码分享

我最近在做Access项目时，需要把行来源为查询结果的ListBox中用户选中的多个选项存入数组，供后续逻辑调用。找了一圈网上的资源，要么是基于Excel写的（Excel里用.List，但Access里得用.Column，语法差异直接导致代码跑不起来），要么完全没考虑多选的场景，根本满足不了需求。

干脆自己写了这段能用的代码，亲测有效，分享给有同样需求的朋友：

Sub GetSelectedListBoxItems(lst As ListBox)
    Dim selectedItems() As Variant
    Dim i As Integer, count As Integer
    
    ' 统计选中项数量
    count = 0
    For i = 0 To lst.ListCount - 1
        If lst.Selected(i) Then
            count = count + 1
        End If
    Next i
    
    ' 初始化数组并填充选中项
    If count > 0 Then
        ReDim selectedItems(1 To count)
        count = 0
        For i = 0 To lst.ListCount - 1
            If lst.Selected(i) Then
                count = count + 1
                ' 此处取第1列的值，可根据需求修改列索引（Access列索引从0开始）
                selectedItems(count) = lst.Column(0, i)
            End If
        Next i
        
        ' 示例：遍历数组输出到立即窗口，可替换为你的后续业务逻辑
        For i = LBound(selectedItems) To UBound(selectedItems)
            Debug.Print selectedItems(i)
        Next i
    Else
        MsgBox "请至少选择一项！"
    End If
End Sub

关键说明： #

• 适配Access环境：和Excel不同，Access中获取ListBox的项需要用.Column(列索引, 行索引)，而不是Excel的.List
• 支持多选：代码会先统计选中项的数量，再动态初始化数组，确保数组大小刚好匹配选中项数量
• 灵活调整：你可以修改lst.Column(0, i)中的列索引，来获取ListBox中不同列的数据（注意索引从0开始）

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