如何在Excel中使用现成tSQL查询访问SQL Server并引用单元格变量

方法1：用Microsoft Query实现参数化查询（无需Power Query） #

这是Excel原生工具，直接支持导入你的T-SQL并绑定单元格参数：

• 打开Excel，点击数据选项卡 → 获取外部数据 → 自其他来源 → 来自Microsoft Query
• 选择SQL Server驱动（如SQL Server Native Client），输入服务器名、登录信息，选择目标数据库后点击下一步
• 点击「SQL」按钮，粘贴你的T-SQL查询，将需要替换的变量用?占位。例如原查询：

  SELECT * FROM Sales WHERE SaleDate >= @StartDate AND Region = @Region
  

  修改为：

  SELECT * FROM Sales WHERE SaleDate >= ? AND Region = ?
  

• 确定后会弹出参数输入窗口，选择「从单元格获取值」，指定对应参数的单元格（比如A1存起始日期，B1存区域），勾选「每次刷新时自动使用该值」
• 数据导入后，修改单元格值后右键数据区域选择「刷新」即可更新结果

方法2：用VBA脚本自定义执行查询 #

如果需要更灵活的控制，用VBA直接执行T-SQL并读取单元格参数：

1. 按Alt + F11打开VBA编辑器，插入新模块
2. 粘贴以下代码（根据你的环境修改服务器、数据库、查询和单元格引用）：

   Sub LoadSQLData()
       Dim conn As Object, rs As Object
       Dim sqlText As String
       Dim paramDate As Date, paramRegion As String
       
       ' 从单元格读取参数
       paramDate = ThisWorkbook.Sheets("Sheet1").Range("A1").Value
       paramRegion = ThisWorkbook.Sheets("Sheet1").Range("B1").Value
       
       ' 拼接带参数的T-SQL
       sqlText = "SELECT * FROM Sales WHERE SaleDate >= '" & Format(paramDate, "yyyy-MM-dd") & "' AND Region = '" & paramRegion & "'"
       
       ' 建立连接（Windows认证用Integrated Security=SSPI）
       Set conn = CreateObject("ADODB.Connection")
       conn.Open "Provider=SQLOLEDB;Data Source=你的服务器名;Initial Catalog=你的数据库名;User ID=账号;Password=密码;"
       
       ' 执行查询并写入Excel
       Set rs = conn.Execute(sqlText)
       ThisWorkbook.Sheets("Sheet1").Range("A3").CopyFromRecordset rs
       
       ' 清理资源
       rs.Close: conn.Close
       Set rs = Nothing: Set conn = Nothing
   End Sub
   

3. 回到Excel，在「开发工具」选项卡插入按钮，关联这个宏，点击按钮即可刷新数据

关键注意事项 #

• 确保Excel所在设备能连通SQL Server，防火墙和端口设置正常
• 优先使用Windows认证（连接字符串用Integrated Security=SSPI），避免硬编码密码
• 复杂查询（如含临时表、存储过程）同样支持：调用存储过程可写为EXEC 存储过程名 ?, ?，按方法1的参数绑定流程操作即可

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