根据Excel ComboBox选中值过滤SQL数据连接查询结果的VBA实现咨询

你已经完成了ComboBox的唯一值填充，下面直接给出动态修改数据连接查询语句、实现选中值过滤刷新的可落地实现：

步骤1：绑定刷新按钮的触发逻辑 #

找到你添加的「数据刷新按钮」：

• 如果是ActiveX类型按钮，右键点击→选择「查看代码」，进入VBA编辑界面
• 如果是表单控件类型按钮，直接右键指定宏即可

步骤2：添加VBA执行代码 #

直接使用下方代码，替换对应占位参数即可正常运行：

Sub 刷新过滤后的数据()
    Dim conn As WorkbookConnection
    Dim selectedDebtor As String
    Dim sqlStr As String
    
    ' 获取ComboBox选中值，将ComboBox1替换为你的控件实际名称
    selectedDebtor = ThisWorkbook.Sheets("DATA").OLEObjects("ComboBox1").Object.Value
    
    ' 非空校验
    If selectedDebtor = "" Then
        MsgBox "请先选择债务人名称", vbExclamation
        Exit Sub
    End If
    
    ' 拼接SQL查询语句，替换[query]为你的实际表名/查询名、[column]为实际过滤字段名
    sqlStr = "SELECT * FROM [query] WHERE [column] = '" & Replace(selectedDebtor, "'", "''") & "'"
    
    ' 修改名为DATA的数据连接的查询命令
    Set conn = ThisWorkbook.Connections("DATA")
    ' 如果你的连接是ODBC类型，将下方OLEDBConnection改为ODBCConnection即可
    conn.OLEDBConnection.CommandText = sqlStr
    
    ' 执行数据刷新
    conn.Refresh
End Sub

注意事项 #

• 代码中用Replace(selectedDebtor, "'", "''")做了单引号转义，避免选中值包含单引号时出现SQL语法错误
• 如果需要保留默认全量数据的选项，可以在ComboBox中添加「全部」选项，再加分支判断拼接不带WHERE条件的SQL即可

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