如何在Excel宏的SQL查询中插入Value2与Value1参数？

嘿，我来帮你搞定这个问题！你遇到的核心问题是：直接在SQL语句里写Value2、Value1这种变量名时，数据库驱动会把它们当成表格的字段名，而不是你定义的变量值——这就是为什么写死Job = 2能正常运行，用变量就报错。

下面给你两种靠谱的解决方法：

方式1：直接拼接变量值到SQL语句（适合简单场景） #

不同数据类型的变量，拼接时需要注意格式要求：

• 数字类型（比如你的Value2）：直接拼接即可，不需要额外符号
• 日期类型（比如你的Value1）：必须用#符号包裹，Excel的OLEDB驱动才能识别为日期值

修改后的SQL语句代码如下：

Value1 = Range("B4").Value ' = 30.10.2020
Value2 = Range("C4").Value ' = 2

' 用Format统一日期格式，避免系统区域设置导致的识别错误
sql = "SELECT * FROM [Page 1$] WHERE Job = " & Value2 & " AND DateTime = #" & Format(Value1, "mm/dd/yyyy") & "#"

为什么要格式化日期？ #

如果你的系统日期格式是dd.mm.yyyy，直接拼接可能会被驱动误解析成月/日/年，用Format转成标准的mm/dd/yyyy格式，能彻底避免这类问题。

方式2：使用参数化查询（更安全、更规范） #

虽然是本地Excel数据，但参数化查询能避免潜在的格式问题，还能养成良好的编码习惯（如果未来扩展到其他数据源，还能防SQL注入）。写法如下：

Value1 = Range("B4").Value
Value2 = Range("C4").Value

sql = "SELECT * FROM [Page 1$] WHERE Job = ? AND DateTime = ?"

' 创建命令对象来处理参数
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
With cmd
    .ActiveConnection = cn
    .CommandText = sql
    ' 添加参数：依次对应SQL里的两个?
    .Parameters.Append .CreateParameter("JobParam", 3, 1, , Value2) ' 3代表整数类型
    .Parameters.Append .CreateParameter("DateParam", 7, 1, , Value1) ' 7代表日期类型
    Set rs = .Execute ' 执行参数化查询
End With

代码小说明： #

CreateParameter的参数依次是：参数名、数据类型（比如3对应整数，7对应日期，可根据实际调整）、参数方向（1代表输入参数）、长度、参数值。这种写法不需要手动处理日期/字符串的包裹符号，驱动会自动搞定格式问题。

最后给你贴一份用方式1修改后的完整宏代码：

Sub Button1_Click()
    Dim cn As Object, rs As Object, output As String, sql As String
    Dim Value1 As Date, Value2 As Integer ' 建议声明变量类型，代码更规范
    
    Set cn = CreateObject("ADODB.Connection")
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source=" & ThisWorkbook.Path & "\" & ThisWorkbook.Name & ";" & "Extended Properties=""Excel 12.0 Xml;HDR=YES"""
        .Open
    End With
    
    Value1 = Range("B4").Value ' = 30.10.2020
    Value2 = Range("C4").Value ' = 2
    
    ' 正确拼接变量的SQL语句
    sql = "SELECT * FROM [Page 1$] WHERE Job = " & Value2 & " AND DateTime = #" & Format(Value1, "mm/dd/yyyy") & "#"
    
    Set rs = cn.Execute(sql)
    Do
        output = output & rs("Name") & ";" & rs(1) & ";" & rs(2) & vbNewLine
        Debug.Print rs(0); ";" & rs(1) & ";" & rs(2)
        rs.MoveNext
    Loop Until rs.EOF
    
    MsgBox output
    rs.Close
    cn.Close
    Set cn = Nothing
    Set rs = Nothing
End Sub

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