如何在excel中用宏去连接sqlserver数据库并根据单元格中的值来生成sql语句去查询

你可以使用ADODB对象来连接SQL Server数据库并使用VBA宏编写查询语句。以下是一个示例代码，它将连接到名为"test"的数据库，查询名为"employees"的表，并将单元格A1中的值用作查询参数：

Sub QueryDatabase()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    
    ' Set up the connection string
    Set cn = New ADODB.Connection
    cn.ConnectionString = "Provider=SQLOLEDB;Data Source=SERVERNAME;Initial Catalog=test;User ID=USERNAME;Password=PASSWORD;"
    
    ' Open the connection
    cn.Open
    
    ' Build the SQL statement using the value in cell A1
    strSQL = "SELECT * FROM employees WHERE department = '" & Range("A1").Value & "';"
    
    ' Execute the SQL statement
    Set rs = cn.Execute(strSQL)
    
    ' Output the results to a new worksheet
    Worksheets.Add
    Range("A1").CopyFromRecordset rs
    
    ' Close the connection
    rs.Close
    cn.Close
    
    ' Clean up
    Set rs = Nothing
    Set cn = Nothing
End Sub

请注意，你需要将"SERVERNAME"，"USERNAME"和"PASSWORD"替换为你自己的值，并且确保你已经添加了对Microsoft ActiveX数据对象（ADO）库的引用。