无需VBA：从Excel调用带单元格日期参数的SQL Server Stored Procedure

没问题！完全可以不用VBA实现这个需求——Excel自带的数据连接+Power Query组合就能搞定，不用写一行代码。下面是一步步的实操指南：

1. 建立SQL Server数据连接 #

• 打开你的Excel文件，切换到「数据」选项卡，点击「获取数据」→「从数据库」→「从SQL Server数据库」。
• 在弹出的窗口里输入你的SQL Server服务器名称和目标数据库名称，点击「确定」。
• 进入「导航器」窗口后，不要直接选择表或视图，点击左下角的**「转换数据」**，进入Power Query编辑器。

2. 编写带Excel单元格参数的查询 #

在Power Query编辑器里，我们要写一段M语言代码来读取Excel单元格的日期，再调用存储过程：

• 点击「主页」选项卡的「高级编辑器」，替换默认代码为以下内容（记得替换成你自己的实际信息）：

let
    // 读取Excel单元格的日期参数（这里假设日期在Sheet1的A1单元格）
    Source = Excel.CurrentWorkbook(){[Name="Sheet1"]}[Content],
    ReportDate = Source{0}[Column1], // Column1对应A列，0代表第一行（即A1）
    // 拼接调用存储过程的SQL语句，把日期参数传进去
    SQLQuery = "EXEC 你的存储过程名称 @日期参数名 = '" & DateTime.ToText(ReportDate, "yyyy-MM-dd") & "'",
    // 填写你的SQL服务器和数据库信息
    ServerName = "你的SQL服务器名称",
    DatabaseName = "你的数据库名称",
    // 执行查询并获取结果
    Result = Sql.Database(ServerName, DatabaseName, [Query=SQLQuery])
in
    Result

• 关键说明：
  • 如果你的日期在其他单元格（比如Sheet2的B3），就把Sheet1改成Sheet2，Column1改成Column2（B列），0改成2（第三行，索引从0开始）。
  • DateTime.ToText里的yyyy-MM-dd是SQL Server兼容的标准日期格式，避免转换错误，如果你的存储过程要求其他格式，调整这个字符串即可。

3. 设置动态刷新 #

现在把查询结果加载回Excel，再设置自动/手动刷新：

• 点击Power Query编辑器的「关闭并上载」，选择把结果加载到新工作表或指定位置。
• 要实现日期变化后更新数据，有两种方式：
  • 手动刷新：右键点击加载好的数据表，选择「刷新」；或者给工作表加个表单按钮（不用VBA）：切换到「开发工具」选项卡→「插入」→「表单控件」里的「按钮」，关联到这个数据连接的刷新动作，改完日期点一下按钮就行。
  • 自动刷新：右键数据表→「表格」→「刷新」下拉箭头→「连接属性」，在「使用状况」选项卡勾选「打开文件时刷新数据」，还可以设置「刷新频率」（比如每分钟刷新一次），这样日期变化后等待一会儿就会自动更新结果。

4. 注意事项 #

• 确保你的Excel有权限连接到SQL Server，并且账号能调用目标存储过程。
• 如果存储过程有多个参数，只需要在SQLQuery里添加对应的参数拼接即可，比如：

  SQLQuery = "EXEC GetRangeData @StartDate = '" & DateTime.ToText(StartDate, "yyyy-MM-dd") & "', @EndDate = '" & DateTime.ToText(EndDate, "yyyy-MM-dd") & "'"
  

• 如果遇到日期格式错误，可以检查DateTime.ToText的格式字符串，或者在SQL存储过程里调整参数的类型转换逻辑。

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