使用可变Excel值查询SQL的最佳方法

Sub RunQuery()
    Dim conn As Object
    Dim cmd As Object
    Dim rs As Object
    Dim strSQL As String
    Dim paramValue As Variant
    
    ' 创建数据库连接对象
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    conn.Open
    
    ' 创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    cmd.ActiveConnection = conn
    cmd.CommandType = 1 ' adCmdText，表示使用文本命令
    
    ' 设置SQL语句，使用参数占位符
    strSQL = "SELECT * FROM 表名 WHERE 列名 = ?"
    cmd.CommandText = strSQL
    
    ' 获取Excel中的参数值
    paramValue = Sheets("Sheet1").Range("A1").Value
    
    ' 添加参数
    cmd.Parameters.Append cmd.CreateParameter(, 200, , , paramValue)
    
    ' 执行查询
    Set rs = cmd.Execute
    
    ' 将查询结果写入Excel
    Sheets("Sheet2").Range("A1").CopyFromRecordset rs
    
    ' 清理资源
    rs.Close
    conn.Close
    Set rs = Nothing
    Set cmd = Nothing
    Set conn = Nothing
End Sub