Excel VBA如何将多列Listbox选中项拼接为正确格式的SQL IN子句

问题根因 #

你当前的字符串拼接逻辑存在两个问题：

• 仅给整段拼接后的strset包裹了单引号，导致所有选中的员工编号被识别为一个完整的字符串，而非IN语法要求的多个独立字符串参数
• 拼接完成后的strset末尾会多一个多余的逗号，直接代入SQL会触发语法错误

修正后的VBA代码 #

Dim strset As String
' 先重置字符串变量
strset = ""
With frm.lb1
    For lrow = 0 To .ListCount - 1
        If .Selected(lrow) Then
            ' 每个选中值单独包裹单引号，再追加逗号分隔
            strset = strset & "'" & Replace(.List(lrow, lcol), "'", "''") & "',"
        End If
    Next lrow
End With

' 先判断有没有选中项，避免空值导致SQL报错
If strset <> "" Then
    ' 去掉末尾多余的逗号
    strset = Left(strset, Len(strset) - 1)
    ' 拼接SQL，此时strset已经是 '值1','值2','值3' 格式，不需要再额外加引号
    sqlQry = "Select * from tablename where stringfield IN (" & strset & ")"
    rs.Open sqlQry
Else
    ' 没有选中项的自定义逻辑，可根据需求调整
    MsgBox "请先选择要操作的员工记录"
    Exit Sub
End If

补充说明 #

代码中Replace(.List(lrow, lcol), "'", "''")的作用是处理员工编号包含单引号的场景，把单引号转义为两个单引号，避免触发SQL语法错误，同时可以防范简单的SQL注入风险。

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