如何将ListBox中选中的每个项分别保存为字符串

要将ListBox中每个选中项保存为独立的字符串，推荐使用动态数组存储，后续可通过数组索引直接访问每个选中项。以下是修改后的代码及说明：

修改后的代码 #

Dim strParams() As String
Dim varItem As Variant
Dim idx As Integer

idx = 0

For Each varItem In Me!LstParameters.ItemsSelected
    ' 动态扩展数组长度，保留已有元素
    ReDim Preserve strParams(idx)
    ' 将当前选中项存入数组对应位置
    strParams(idx) = Me!LstParameters.ItemData(varItem)
    idx = idx + 1
Next varItem

代码说明 #

• 动态数组strParams()：每个元素对应一个选中项的独立字符串，后续可通过索引单独调用。
• ReDim Preserve：循环中动态调整数组大小，同时保留已存入的元素，避免数据丢失。
• 索引idx：记录当前存储位置，每存入一个项就自增1，确保每个选中项都有独立的存储位置。

后续使用示例 #

之后可通过数组索引直接访问每个独立字符串：

' 打印第一个选中项
Debug.Print strParams(0)
' 打印第二个选中项
Debug.Print strParams(1)

' 遍历所有保存的独立字符串
Dim i As Integer
For i = LBound(strParams) To UBound(strParams)
    Debug.Print strParams(i)
Next i

补充提示 #

原代码Dim strParameters, varItem, strComma as string的写法存在类型声明问题：仅strComma为String类型，其余变量默认是Variant类型。建议每个变量单独声明类型，避免类型混淆。

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