FMCG企业数据岗：如何实现基于SQL的Excel报表自动更新？

Hey there! As someone who’s built and maintained automated SQL-to-Excel reporting workflows for FMCG sales teams, I’ve got three practical solutions tailored to your needs. Let’s dive in:

This is the easiest and most maintainable option for most FMCG reporting scenarios:

• 连接SQL数据源：打开Excel，切换到「数据」选项卡 → 「获取数据」→ 「从数据库」→ 选择你的数据库类型（比如SQL Server）。输入服务器名称、数据库名称，选择身份验证方式（Windows集成或SQL账号）。连接后，你可以直接选择销售/交易表，或者编写自定义SQL语句来精准拉取昨日数据，比如：

  SELECT * FROM SalesTransactions 
  WHERE TransactionDate = DATEADD(day, -1, CAST(GETDATE() AS DATE))
  

  自定义SQL能帮你提前过滤数据，减少Excel的加载压力。
• 设置自动刷新：将查询结果加载到Excel工作表后，右键查询表 → 「连接属性」。勾选「打开文件时刷新数据」，还可以在「刷新控件」里设置定时刷新（比如每天上午8点自动刷新一次）。
• 关联透视表与函数：把Power Query生成的动态表作为数据透视表的数据源，VLOOKUP等函数直接引用这个表即可。记得给透视表也开启自动刷新：右键透视表 → 「数据」→ 「刷新」，或者在透视表选项里勾选「打开文件时刷新」。
• 小技巧：如果需要动态调整查询范围（比如偶尔拉取前7天数据），可以在Excel单元格中设置参数（比如A1单元格输入7），然后在Power Query中引用这个单元格，修改SQL语句为带参数的形式，实现灵活切换。

If you need more control—like automatically generating multiple reports, formatting cells, or integrating with other tools—VBA is your go-to:

• 编写SQL连接与刷新代码：打开Excel的「开发工具」→ 「Visual Basic」，插入模块，粘贴以下示例代码（记得替换成你的数据库信息）：

  Sub RefreshDailySalesData()
      Dim conn As Object, rs As Object
      Dim sqlQuery As String
      Dim rawDataSheet As Worksheet
      Dim lastRow As Long
      
      ' 指向存放原始数据的工作表
      Set rawDataSheet = ThisWorkbook.Sheets("RawSalesData")
      
      ' 清空旧数据（保留表头）
      lastRow = rawDataSheet.Cells(rawDataSheet.Rows.Count, "A").End(xlUp).Row
      If lastRow > 1 Then
          rawDataSheet.Range("A2:" & rawDataSheet.Cells(lastRow, rawDataSheet.Columns.Count).Address).ClearContents
      End If
      
      ' 建立SQL连接（Windows集成验证示例）
      Set conn = CreateObject("ADODB.Connection")
      conn.Open "Provider=SQLOLEDB;Data Source=你的SQL服务器名;Initial Catalog=你的数据库名;Integrated Security=SSPI;"
      
      ' 查询昨日销售及交易数据
      sqlQuery = "SELECT SaleID, ProductName, TransactionAmount, TransactionDate " & _
                 "FROM SalesTransactions " & _
                 "WHERE TransactionDate = DATEADD(day, -1, CAST(GETDATE() AS DATE))"
      
      ' 执行查询并写入数据
      Set rs = CreateObject("ADODB.Recordset")
      rs.Open sqlQuery, conn
      If Not rs.EOF Then
          rawDataSheet.Range("A2").CopyFromRecordset rs
      End If
      
      ' 关闭连接
      rs.Close: conn.Close
      Set rs = Nothing: Set conn = Nothing
      
      ' 刷新关联的数据透视表
      ThisWorkbook.Sheets("SalesReport").PivotTables("SalesPivot").RefreshTable
      
      MsgBox "昨日数据已刷新完成！", vbInformation
  End Sub
  

• 设置自动运行：你可以手动通过「宏」按钮运行，或者设置打开文件时自动触发：在「ThisWorkbook」模块中添加Workbook_Open()事件，调用上面的宏；也可以用Windows任务计划定时打开Excel文件，触发刷新。
• 注意：如果使用SQL账号验证，避免把密码明文写在代码里，建议用Excel的加密功能，或者优先使用Windows集成验证。

If you need to automate end-to-end workflows—like refreshing data, formatting reports, and sending them to your team without opening Excel—Power Automate is a great addition:

• 创建一个定时触发的云流（比如每天早上7点），添加「Excel Online (Business)」动作，选择「运行脚本」。用Office Scripts编写类似Power Query的逻辑来连接SQL并刷新数据。
• 后续可以添加动作，比如「发送电子邮件(V2)」，把刷新后的报表作为附件发送给相关人员，或者「保存文件」到SharePoint/OneDrive实现共享。

内容的提问来源于stack exchange，提问作者A.Sabry