Excel无Manage Parameters时，如何通过单元格A1传年份调用SQL查询数据

方法一：VBA宏（通用所有支持VBA的Excel版本） #

这种方法不依赖Power Query，直接通过代码读取A1单元格的年份并执行查询：

• 按Alt + F11打开VBA编辑器，右键点击左侧工作簿名称，选择「插入」→「模块」
• 粘贴以下代码，根据你的数据库类型修改连接字符串和工作表名称：

Sub RefreshDataWithYear()
    Dim conn As Object
    Dim rs As Object
    Dim sqlStr As String
    Dim yearVal As String
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的目标工作表名
    yearVal = ws.Range("A1").Value
    
    If yearVal = "" Or Not IsNumeric(yearVal) Then
        MsgBox "请在A1单元格输入有效的年份数字", vbExclamation
        Exit Sub
    End If
    
    ' 以下连接字符串示例为SQL Server，按需替换为Access/MySQL等对应字符串
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=SQLOLEDB;Data Source=你的服务器地址;Initial Catalog=你的数据库名;User ID=你的用户名;Password=你的密码;"
    
    sqlStr = "SELECT Col1, Col2, Col3 FROM Table WHERE YEAR(Col1) = " & yearVal
    
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open sqlStr, conn
    
    If Not rs.EOF Then
        ws.Range("A3").CopyFromRecordset rs ' 结果从A3开始写入，可自行调整位置
    Else
        MsgBox "该年份无匹配数据", vbInformation
    End If
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

• 回到Excel，按Alt + F8选择RefreshDataWithYear执行，或添加表单按钮绑定该宏，方便快速触发查询

方法二：Power Query自定义函数（适用于有Power Query但无Manage Parameters的版本） #

如果你的Excel支持Power Query（2013及以后）但找不到参数管理功能，可通过自定义函数引用单元格值：

• 点击「数据」选项卡→「从其他来源」→「从空白查询」，打开Power Query编辑器
• 进入「高级编辑器」，替换原有代码为以下内容，修改服务器、数据库和表名：

(year as number) =>
let
    Source = Sql.Database("你的服务器地址", "你的数据库名"),
    TargetTable = Source{[Schema="dbo",Item="Table"]}[Data],
    FilteredByYear = Table.SelectRows(TargetTable, each Date.Year([Col1]) = year)
in
    FilteredByYear

• 关闭编辑器，选择「仅创建连接」；在工作表中输入公式=你的函数名(A1)（替换为你保存的函数名称），回车后加载对应年份的数据
• 修改A1年份后，右键数据区域选择「刷新」即可更新结果

方法三：旧版本Excel数据透视表向导（2007及更早版本） #

针对非常老旧的Excel版本，可通过数据透视表向导绑定参数：

• 按Alt + D + P打开数据透视表和数据透视图向导，选择「外部数据源」→「下一步」
• 点击「获取数据」，选择你的数据库类型并完成连接配置
• 在查询向导中点击「高级」，将SQL语句修改为SELECT Col1, Col2, Col3 FROM Table WHERE YEAR(Col1) = ?
• 点击「参数」按钮，选择「获取值从单元格」并指定为Sheet1!$A$1，完成向导
• 修改A1年份后，刷新数据透视表即可同步查询结果

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