当然可以实现！作为经常处理这类自动化需求的人，我会一步步给你讲两种适合新手的方法，帮你把每周重复的工作省下来～

Power Query是Excel自带的可视化工具，不用写太多代码就能连接数据库、执行SQL，还能精准把结果放到指定单元格，非常适合新手入门。

步骤1：连接到你的数据库 #

• 打开Excel，点击顶部菜单栏的数据选项卡
• 找到获取数据按钮，展开后选择你的数据库类型（比如SQL Server、MySQL、Access等，根据实际情况选）
• 在弹出的连接窗口里，输入数据库服务器地址、认证信息（用户名/密码），选择对应的数据库，点击确定

步骤2：输入SQL查询并加载到指定单元格 #

• 连接成功后会进入Power Query编辑器，点击主页选项卡的高级编辑器
• 把默认代码替换成你的SQL查询，示例如下（记得替换成自己的服务器、数据库和查询语句）：

  let
      Source = Sql.Database("你的服务器地址", "你的数据库名"),
      CustomQuery = Sql.Database("你的服务器地址", "你的数据库名", [Query="SELECT number_of_costumers FROM database where year=2022"])
  in
      CustomQuery
  

• 点击关闭并上载至（别选默认的“关闭并上载”），在弹出的窗口里选仅创建连接，再勾选“加载到”里的“现有工作表”，指定单元格为$A$1，点击确定

步骤3：添加多个查询并批量刷新 #

• 重复步骤1和2，每次用不同的SQL查询，把结果依次加载到$A$2、$A$3……
• 后续要更新数据时，只需在数据选项卡点击全部刷新，所有查询会自动重新执行并更新单元格内容

如果你的SQL查询数量很多，手动建多个Power Query也麻烦，用VBA写个脚本可以一键批量处理，效率更高。

步骤1：打开VBA编辑器 #

• 按Alt + F11快速打开VBA编辑器
• 右键点击左侧的工作簿名称，选择插入 → 模块

步骤2：粘贴并配置VBA代码 #

把下面的代码粘贴到模块里，然后修改里面的数据库连接信息和查询列表：

Sub RunMultipleSQLQueries()
    Dim conn As Object
    Dim rs As Object
    Dim sqlQueries As Variant
    Dim i As Integer
    Dim targetCell As Range
    
    ' 1. 修改为你的数据库连接字符串（根据数据库类型调整）
    ' 示例：SQL Server连接字符串
    Dim connStr As String
    connStr = "Provider=SQLOLEDB;Data Source=你的服务器地址;Initial Catalog=你的数据库名;User ID=你的用户名;Password=你的密码;"
    
    ' 2. 把所有需要执行的SQL查询放到这个数组里
    sqlQueries = Array( _
        "SELECT number_of_costumers FROM database where year=2022", _
        "SELECT total_revenue FROM database where year=2022", _
        "SELECT average_order_value FROM database where year=2022" _
    )
    
    ' 3. 创建数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.Open connStr
    
    ' 4. 逐个执行查询，结果写入A1、A2...单元格
    Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1") ' 修改为你的目标工作表名称
    For i = LBound(sqlQueries) To UBound(sqlQueries)
        Set rs = CreateObject("ADODB.Recordset")
        rs.Open sqlQueries(i), conn
        
        ' 写入结果（假设每个查询只返回单个值）
        If Not rs.EOF Then
            targetCell.Value = rs.Fields(0).Value
        Else
            targetCell.Value = "无结果"
        End If
        
        rs.Close
        Set rs = Nothing
        Set targetCell = targetCell.Offset(1, 0) ' 下移到下一个单元格
    Next i
    
    ' 5. 关闭数据库连接
    conn.Close
    Set conn = Nothing
    
    MsgBox "所有查询已执行完成！"
End Sub

步骤3：运行脚本并添加一键更新按钮 #

• 回到VBA编辑器，点击工具栏的绿色三角按钮（或按F5）运行脚本，结果会自动填充到指定单元格
• 想更方便的话，可以给脚本加个Excel按钮：
  1. 回到Excel工作表，点击开发工具选项卡的插入 → 按钮（表单控件）
  2. 拖动鼠标画一个按钮，选择刚才创建的RunMultipleSQLQueries宏，点击确定
  3. 之后每周只需点击这个按钮，就能一键更新所有数据

• 2016及以后的Excel版本自带Power Query，之前版本需要单独下载Power Query插件
• 用VBA时，要确保Excel启用了宏（路径：文件 → 选项 → 信任中心 → 信任中心设置 → 宏设置 → 启用所有宏）
• 先在数据库客户端测试你的SQL语句能正常运行，再放到Excel里使用
• 如果查询返回多个值，Power Query可以直接加载整个结果集；VBA代码则需要调整来处理多行多列的情况（如果你的查询都是返回单个值，上面的代码完全够用）

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