如何通过Excel数据连接传单元格参数查询SQL表的匹配数据

这个需求完全可以实现，以下按操作复杂度从低到高提供3种实现方案：

仅适用于你当前已经建好的是ODBC/OLEDB直连的场景，操作步骤如下：

• 点击Excel顶部菜单栏「数据」选项卡，选择「连接」，找到你已经创建好的指向SQL数据库的连接，点击「属性」
• 在弹出的窗口切换到「定义」选项卡，把「命令文本」里写死的搜索条件替换成?占位符，例如原查询语句是SELECT col1,col2,col3 FROM 你的大表 WHERE 搜索字段 = '固定值'，修改为SELECT col1,col2,col3 FROM 你的大表 WHERE 搜索字段 = ?
• 点击窗口下方的「参数」按钮，在弹出的参数配置窗口中，选择「从以下单元格中获取值」，选中你设定的输入搜索参数的单元格，同时勾选「单元格值更改时自动刷新」，依次点击确定保存所有配置即可
  配置完成后，你只要在指定单元格输入搜索值，Excel会自动拉取匹配的SQL数据写入工作表。

如果需要多参数、或者对查询逻辑有自定义要求，可以用Excel自带的Power Query工具实现：

• 先给参数单元格定义名称：选中你要放搜索参数的单元格，点击「公式」选项卡-「定义名称」，自定义名称比如search_key，引用位置确认是你选中的参数单元格后点击确定
• 点击「数据」选项卡-「获取数据」-「启动Power Query编辑器」，找到你之前连接SQL表的查询
• 编辑查询的SQL语句，把固定搜索值替换为引用单元格的参数：如果搜索字段是数值类型，把WHERE子句改成WHERE 搜索字段 = " & Text.From(Excel.CurrentWorkbook(){[Name="search_key"]}[Content]{0}[Column1]) & "；如果是文本类型，需要额外加单引号包裹，改为WHERE 搜索字段 = '" & Excel.CurrentWorkbook(){[Name="search_key"]}[Content]{0}[Column1] & "'
• 保存查询退出Power Query编辑器，右键点击工作表中的查询结果区域，选择「查询」-「属性」，勾选「打开文件时刷新数据」即可

如果需要对返回数据做自定义处理、或者有复杂的查询逻辑，可以用VBA实现：

• 按Alt+F11打开VBA编辑器，在左侧工程窗口双击你放置参数的工作表，打开代码编辑窗口
• 粘贴如下代码，根据你的实际情况修改连接信息、表名、字段名、单元格位置：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监控参数单元格的改动，示例中参数放在A1，可自行修改
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        ' 避免输入过程中多次触发刷新
        Application.EnableEvents = False
        On Error GoTo ErrHandler
        
        Dim conn As ADODB.Connection
        Dim rs As ADODB.Recordset
        Dim sql As String
        Dim connStr As String
        Dim paramVal As String
        
        paramVal = Replace(Range("A1").Value, "'", "''") ' 转义单引号避免SQL语法错误
        ' 替换为你自己的数据库连接串，以下为SQL Server示例，MySQL/Oracle等修改对应连接串即可
        connStr = "Provider=SQLOLEDB;Data Source=你的SQL服务器地址;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
        ' 拼接查询SQL
        sql = "SELECT * FROM 你的大表名 WHERE 匹配字段 = '" & paramVal & "'"
        
        ' 建立连接执行查询
        Set conn = New ADODB.Connection
        conn.Open connStr
        Set rs = conn.Execute(sql)
        
        ' 清空原有查询结果，示例从第3行开始写结果，可自行修改
        Range("A3:Z1048576").ClearContents
        ' 写入表头
        Dim i As Integer
        For i = 0 To rs.Fields.Count - 1
            Cells(3, i + 1).Value = rs.Fields(i).Name
        Next
        ' 写入查询数据
        If Not rs.EOF Then
            Range("A4").CopyFromRecordset rs
        End If
        
        ' 释放资源
        rs.Close
        conn.Close
        Set rs = Nothing
        Set conn = Nothing
        
ErrHandler:
        Application.EnableEvents = True
        If Err.Number <> 0 Then
            MsgBox "查询出错：" & Err.Description
        End If
    End If
End Sub

• 配置VBA引用：点击VBA编辑器顶部菜单栏「工具」-「引用」，勾选「Microsoft ActiveX Data Objects x.x Library」（x.x为版本号，选择列表中最高版本即可）
• 保存文件为.xlsm格式（启用宏的工作簿），后续打开文件时启用宏即可生效

• 所有涉及字符串参数的场景，都需要做单引号转义，避免出现SQL语法错误或注入风险
• 可以在SQL语句中增加TOP/LIMIT限制返回的最大行数，避免返回数据量过大导致Excel卡顿
• 注意参数单元格的格式要和SQL表中对应的搜索字段类型保持一致，避免出现类型不匹配的查询错误

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