Sql server 将数据从Microsoft SQL Server导入Excel

我正在尝试将数据从SQL Server导入Excel。我知道如何将表从SQLServer导入Excel。我不知道的是，如何输入一个条件，以便SQL Server（或Excel？）理解我只想导入具有条件的数据（即在t-SQL中创建where子句）

例如：我知道如何从表1导入

select*

，但我想知道如何从表1导入

select*，其中condition=XXX

这有点困难的是，我需要将条件链接到Excel单元格。我必须在excel单元格中输入一个值（比如A1），我希望查询能够从单元格A1中读取值，作为本例中的一个条件。可能吗

最好是将数据从SQL Server导入Excel中的某个单元格。我必须编写一个SQL查询，返回一个输出，并将其放在Excel的一个单元格中。可能吗

---

我不知道在哪里编写或插入此t-SQL查询

这将满足您的需求。只需更改明显的对象名称/引用即可

Sub ImportFromSQLServer()

Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset

Server_Name = "your_server_name"
Database_Name = "Northwind"
'User_ID = "******"
'Password = "****"

SQLStr = "select * from dbo.TBL where ID = '1'" 'and PostingDate = '2020-01-01'"

Set Cn = New ADODB.Connection
Cn.Open "Driver={SQL Server};Server=" & Server_Name & ";Database=" & Database_Name & ";"
'& ";Uid=" & User_ID & ";Pwd=" & Password & ";"

RS.Open SQLStr, Cn, adOpenStatic

    With Worksheets("Sheet1").Range("A1")
        .ClearContents
        .CopyFromRecordset RS
    End With

RS.Close
Set RS = Nothing
Cn.Close
Set Cn = Nothing

End Sub

---

你是说将SQL导出到Excel吗？非常感谢：）我一定会尝试一下。如果我的答案回答了你的问题并对你有帮助，请投赞成票。好的，我是新来的，我想我投了赞成票。如果没有，请告诉我