VBA 'Argument Not Optional'错误排查：列表项添加集合失败问题

嘿，我来帮你捋清楚这个问题——这个报错看起来有点迷惑，但其实根源很明确，咱们一步步拆：

首先，先明确Collection.Add方法的第一个参数Item是必填的，虽然其他参数（Key、Before、After）是可选的，但你必须给它传一个有效的值/对象。你用col.Add "test"能正常运行，就是因为"test"是一个明确的字符串，符合Item的要求；而你注释的那行代码，问题出在你传递给Add的"选中项"根本不是一个有效的Item值。

最可能的问题：你获取ListBox选中项的方式错了 #

我猜你大概是写了类似这样的错误代码：

' 错误示例1：直接传Selected属性（这是布尔数组，不是选中项内容）
col.Add ListBox1.Selected
' 错误示例2：多选模式下用Value取内容（返回的是索引，不是值）
col.Add ListBox1.Value

ListBox的Selected属性是一个布尔数组，作用是标记某一项是否被选中，不是选中项的实际内容；如果是多选模式的ListBox，Value属性返回的是第一个选中项的索引，也不是你要的内容。这时候VBA拿到的不是能作为Item的有效数据，就会报错"Argument Not Optional"。

正确的写法：遍历选中项并传递具体值 #

要把ListBox的选中项添加到Collection，你需要循环遍历每一项，判断是否被选中，然后取List(i)属性（这才是对应项的内容）：

Dim myCollection As New Collection
Dim i As Integer

' 假设你的ListBox叫ListBox1，且是多选模式
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        ' 把选中项的内容添加到集合
        myCollection.Add ListBox1.List(i)
        
        ' 如果需要给集合项加唯一Key（方便后续查找），可以加第二个参数：
        ' myCollection.Add ListBox1.List(i), CStr(i) ' 用索引转字符串当Key，确保唯一
    End If
Next i

单选ListBox的简化写法 #

如果你的ListBox是单选模式（MultiSelect = fmMultiSelectSingle），可以直接用ListBox1.Value获取选中值，但要注意判断是否有选中项，避免空值报错：

If Not IsNull(ListBox1.Value) Then
    myCollection.Add ListBox1.Value
End If

关于智能提示的小误解 #

智能提示显示Add的参数可选，是指除了Item之外的参数可选，Item本身是必须的。你之前的代码因为传递的不是有效Item，VBA就会判定你缺少必填参数，所以弹出那个报错。

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