Excel 单元格值作为 SQL 查询 where 语句

使用Excel单元格值作为SQL查询的where语句可以帮助我们根据特定条件从数据库中检索所需的数据。通过 ，我们可以更清晰地理解如何将Excel中的数据与SQL查询相结合，并实现更高效的数据分析和数据提取。

vba
Sub GenerateSQLQuery()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim rng As Range
    Dim cell As Range
    
    '连接数据库
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    
    '设置SQL查询语句的基本结构
    strSQL = "SELECT * FROM 销售数据表 WHERE "
    
    '获取查询条件表中的数据范围
    Set rng = Sheets("查询条件").Range("A2:C" & Sheets("查询条件").Cells(Rows.Count, "A").End(xlUp).Row)
    
    '遍历查询条件表中的每一行
    For Each cell In rng.Rows
        '检查每个查询条件列是否有值
        If cell.Value <> "" Then
            '根据查询条件生成SQL查询语句的where子句
            strSQL = strSQL & cell.EntireRow.Cells(1).Value & " = '" & cell.EntireRow.Cells(2).Value & "' AND "
        End If
    Next cell
    
    '删除最后一个AND关键字
    strSQL = Left(strSQL, Len(strSQL) - 5)
    
    '执行SQL查询
    Set rs = conn.Execute(strSQL)
    
    '将查询结果输出到新的工作表
    Sheets.Add
    Range("A1").CopyFromRecordset rs
    
    '关闭数据库连接
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub