SQL Server数据导入Excel：基于单元格动态参数编写带WHERE条件的查询语句

嘿，作为SQL新手能想到在查询阶段过滤数据而不是事后筛选，这点做得特别好——毕竟大数据量下事后筛选太卡了！我给你两种常用的实现方法，都是直接把Excel单元格的参数传到SQL查询里，保证在数据库端完成过滤：

方法一：用Excel Power Query（推荐，可视化操作多，新手友好） #

这是现在Excel导入外部数据的主流方式，不用写太多复杂代码，步骤很清晰：

1. 从Excel单元格定义参数

   • 打开你的Excel文件，找到「Sample」工作表：选中A1单元格（周数），右键→「定义名称」，命名为Query_WeekNumber，确认引用位置是=Sample!$A$1；同理给A2单元格（年份）定义名称Query_WeekYear，引用位置=Sample!$A$2。
   • 或者直接在Power Query里引用：点击「数据」选项卡→「获取数据」→「自其他源」→「空白查询」，在公式栏输入=Excel.CurrentWorkbook(){[Name="Sample"]}[Content]{0}[Column1]（这就是A1的值），把这个查询命名为WeekNumber；A2的值用=Excel.CurrentWorkbook(){[Name="Sample"]}[Content]{1}[Column1]，命名为WeekYear。

2. 连接SQL Server并编写动态查询

   • 点击「数据」→「获取数据」→「自SQL Server数据库」，输入你的SQL Server服务器名、数据库名，勾选「高级选项」，在「SQL语句」框里写带占位符的查询：

     SELECT Model, Factory, TargetTime, TotalEvalMins 
     FROM AMSView 
     WHERE WeekNumber = ? AND WeekYear = ?
     

   • 点击「确定」后，会弹出「输入参数」对话框，第一个参数选择你刚才定义的WeekNumber，第二个选择WeekYear，确认即可。

3. 刷新数据

   • 以后只要修改「Sample」工作表的A1、A2值，点击「数据」选项卡的「全部刷新」，Power Query就会自动把新参数传到SQL Server，返回过滤后的结果。

方法二：用VBA编写动态查询（适合喜欢编程的场景） #

如果习惯用代码控制导入过程，也可以写一段VBA实现：

1. 打开VBA编辑器：按Alt+F11打开，插入一个新模块。
2. 粘贴以下代码（记得替换里面的数据库连接信息）：

   Sub ImportDynamicSQLData()
       Dim conn As Object
       Dim rs As Object
       Dim sqlStr As String
       Dim weekNum As Integer, yearNum As Integer
       Dim ws As Worksheet
       
       ' 获取Excel单元格的参数值
       Set ws = ThisWorkbook.Sheets("Sample")
       weekNum = ws.Range("A1").Value
       yearNum = ws.Range("A2").Value
       
       ' 构建动态SQL语句
       sqlStr = "SELECT Model, Factory, TargetTime, TotalEvalMins " & _
                "FROM AMSView " & _
                "WHERE WeekNumber = " & weekNum & " AND WeekYear = " & yearNum
       
       ' 创建数据库连接（根据你的SQL Server驱动调整连接字符串）
       Set conn = CreateObject("ADODB.Connection")
       conn.Open "Provider=SQLNCLI11;Server=你的服务器名;Database=你的数据库名;Uid=你的用户名;Pwd=你的密码;"
       
       ' 执行查询并把结果写入Excel（示例是写到Sheet1的A1开始）
       Set rs = CreateObject("ADODB.Recordset")
       rs.Open sqlStr, conn
       ThisWorkbook.Sheets("Sheet1").Range("A1").CopyFromRecordset rs
       
       ' 清理资源
       rs.Close
       conn.Close
       Set rs = Nothing
       Set conn = Nothing
       
       MsgBox "数据导入完成！"
   End Sub
   

3. 运行宏：回到Excel，按Alt+F8选择ImportDynamicSQLData运行，或者给它添加一个按钮，以后点击按钮就能刷新数据。

小提醒 #

• 用Power Query时，要确保参数的类型和SQL Server里WeekNumber、WeekYear字段的类型一致（比如都是整数），避免类型不匹配报错。
• VBA方法里如果参数是字符串类型（比如年份存的是字符串），要给参数加单引号，比如"WHERE WeekYear = '" & yearNum & "'"，你的场景里年份是整数，所以不用加。

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