如何跨多个工作簿/工作设备统一维护更新Power Query代码

以下方案均仅依赖微软Office套件实现，无需操作数据库，无需额外学习数据库相关技能：

方案1：公共查询中继文件（优先推荐，维护成本最低） #

你只需单独创建1个专用的Excel中继文件，存放在共享文件服务器/Teams同步文件夹内：

• 所有公共计算逻辑的Power Query查询全部放在这个中继文件中，所有查询设置为仅创建连接，不加载到工作表
• 其余业务报表不再直接导入ODC查询，而是通过Power Query连接该中继文件，读取对应公共查询的结果
• 后续你只需修改中继文件内的Power Query代码，所有关联的业务报表刷新时会自动获取最新的计算结果，无需逐个修改文件

注意：需统一所有同事设备上的中继文件访问路径，建议使用Teams本地同步后的固定路径，或给共享目录映射统一的网络盘符。

方案2：VBA批量替换存量报表查询代码（适合已有大量存量报表的场景） #

如果已经有大量存量报表导入了ODC查询，你可以用VBA批量更新所有文件的指定Power Query代码：

1. 将更新后的公共查询M代码导出保存为TXT文件，存放在共享路径
2. 使用以下VBA脚本，批量遍历指定文件夹内的所有Excel文件，替换对应名称的查询代码：

Sub 批量更新公共PQ查询()
    Dim 共享报表文件夹 As String, 目标查询名称 As String, 最新M代码 As String
    Dim fso As Object, 目标文件 As Object, 打开的工作簿 As Workbook, 目标查询 As WorkbookQuery
    
    ' 配置参数，修改为你实际的路径和查询名称
    共享报表文件夹 = "Z:\团队报表存放目录"
    目标查询名称 = "公共销售明细查询"
    
    ' 读取提前准备好的最新M代码
    With CreateObject("Scripting.FileSystemObject")
        最新M代码 = .OpenTextFile("Z:\公共资源\最新公共查询代码.txt", 1).ReadAll
    End With
    
    ' 遍历所有Excel文件并更新查询
    Set fso = CreateObject("Scripting.FileSystemObject")
    For Each 目标文件 In fso.GetFolder(共享报表文件夹).Files
        If LCase(fso.GetExtensionName(目标文件.Path)) Like "xls*" Then
            Set 打开的工作簿 = Workbooks.Open(目标文件.Path)
            For Each 目标查询 In 打开的工作簿.Queries
                If 目标查询.Name = 目标查询名称 Then
                    目标查询.Formula = 最新M代码
                End If
            Next
            打开的工作簿.Save
            打开的工作簿.Close
        End If
    Next
    MsgBox "所有文件的公共查询已更新完成"
End Sub

• 运行脚本前请先备份所有报表文件，避免误操作导致数据丢失
• 运行时需要启用Excel宏权限

方案3：Microsoft 365组织共享查询（适合全员使用365的场景） #

如果你们使用的是Microsoft 365版本Office，可以直接将公共查询发布到组织数据源库：

• 你写完公共查询后，在Power Query编辑器中选择「文件」>「发布」>「发布为数据源」
• 同事可以通过「数据」>「获取数据」>「来自组织的数据源」直接引用该查询
• 你更新公共查询后，所有引用的报表刷新时自动同步最新逻辑，无需手动分发更新

所有方案均不会涉及数据库层级的操作，所有计算逻辑全部在Excel端运行，不会对中央数据库造成额外压力，也不需要学习IBM i-series相关知识。

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