如何通过VBA从Excel文件中提取PowerQuery脚本以满足审计合规要求？

当然可以通过VBA提取Excel中的PowerQuery脚本！我刚好有过类似的合规校验场景经验，下面给你两种可靠的实现方式，适配你的多人协作+审计合规需求：

方法一：利用Excel对象模型的WorkbookQuery对象（最简便） #

你提到看过微软的WorkbookQuery文档但没找到提取脚本的方式，其实**WorkbookQuery.Formula属性就是直接返回该查询的M语言脚本文本**。这个方法无需解析XML，直接通过Excel对象模型操作，代码简洁易维护。

示例代码：提取所有PowerQuery脚本 #

Sub ExtractAllPowerQueryScripts()
    Dim wb As Workbook
    Dim qry As WorkbookQuery
    Dim allScripts As String
    Dim outputPath As String
    
    Set wb = ThisWorkbook
    allScripts = ""
    
    ' 遍历工作簿中所有查询（包括隐藏查询）
    For Each qry In wb.Queries
        ' 拼接每个查询的名称和脚本，方便后续校验（也可以直接合并脚本）
        allScripts = allScripts & "--- Query: " & qry.Name & " ---" & vbCrLf
        allScripts = allScripts & qry.Formula & vbCrLf & vbCrLf
    Next qry
    
    ' 可选：将提取的脚本保存到本地文件，用于对比
    outputPath = wb.Path & "\Extracted_PQ_Scripts.txt"
    Open outputPath For Output As #1
    Print #1, allScripts
    Close #1
    
    MsgBox "PowerQuery脚本提取完成，保存至：" & outputPath, vbInformation
End Sub

注意事项： #

• 该方法会提取所有已加载到工作簿的查询，包括隐藏的后台查询（比如用于数据模型的查询）
• 如果你的模板中有参数化查询，Formula属性会包含参数引用，不影响哈希校验的一致性（只要参数定义也一致）

方法二：解析工作簿XML部件（兼容旧版Excel或特殊场景） #

如果遇到WorkbookQuery对象无法访问的情况（比如旧版Excel），可以直接解析Excel工作簿的XML部件——PowerQuery查询本质上存储在工作包的xl/queries/目录下的XML文件中。

示例代码：通过XML部件提取脚本 #

Sub ExtractPQScriptsFromXmlParts()
    Dim wb As Workbook
    Dim xmlPart As CustomXMLPart
    Dim scriptText As String
    Dim allScripts As String
    
    Set wb = ThisWorkbook
    allScripts = ""
    
    ' 遍历所有包含PowerQuery查询的XML部件
    For Each xmlPart In wb.CustomXMLParts
        ' 识别PowerQuery查询的XML命名空间
        If xmlPart.NamespaceURI = "http://schemas.microsoft.com/office/2015/02/metadata/edm" Then
            ' 提取M脚本内容（XPath定位到脚本节点）
            scriptText = xmlPart.SelectSingleNode("//*[local-name()='Formula']").Text
            ' 提取查询名称
            Dim queryName As String
            queryName = xmlPart.SelectSingleNode("//*[local-name()='Name']").Text
            
            allScripts = allScripts & "--- Query: " & queryName & " ---" & vbCrLf
            allScripts = allScripts & scriptText & vbCrLf & vbCrLf
        End If
    Next xmlPart
    
    ' 保存提取结果
    Dim outputPath As String
    outputPath = wb.Path & "\Extracted_PQ_Scripts_XML.txt"
    Open outputPath For Output As #1
    Print #1, allScripts
    Close #1
    
    MsgBox "通过XML部件提取PowerQuery脚本完成，保存至：" & outputPath, vbInformation
End Sub

适配你的合规校验需求 #

提取脚本后，你可以按照计划：

1. 将所有提取的脚本合并为一个字符串（或按固定顺序拼接，避免因查询顺序不同导致哈希差异）
2. 计算该字符串的哈希值（你提到方法已明确，这里就不展开）
3. 读取外部标准.txt文件中的哈希值进行比对
4. 如果不一致，弹出提示并禁止后续操作（或标记模板为不合规）

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