从Excel提取PowerQuery脚本

Question

我目前正在开发一个Excel模板，该模板使用PowerQuery脚本从各种数据源中提取数据。这个脚本将由多个人每周运行一次。而每年年底，所使用的模板都可以接受审计。要使该模板“兼容”，审计人员可以依赖内容的一个要求是，对于所有单独的模板，PowerQuery脚本都是完全相同的。我想通过用VBA编写一个脚本来检查这个问题，该脚本在“PowerQuery文本”中从PowerQuery编辑器中提取PowerQuery脚本，并计算该脚本的哈希值。这个哈希值将与从模板外部存储在标准.txt文件中的脚本的哈希值进行比较。计算哈希值不应该是个问题，但我不知道是否有可能从VBA中的Excel文件中提取PowerQuery脚本。您知道这是否可能吗?如果可能，我如何才能这样做？

我试着根据微软网站: WorkbookQuery上的信息，在VBA中使用https://learn.microsoft.com/en-us/office/vba/api/excel.workbookquery?source=recommendations对象的功能。但是，没有找到一种提取脚本的方法。

Answer 1

设法用提供的链接“骑马”来解决这个问题。谢谢你这么说!请查找我在下面使用的代码的简化版本：

Sub fetch_queries()

Dim qry As WorkbookQuery
query_q = ActiveWorkbook.Queries.Count

For i = 1 To query_q
Set qry = ActiveWorkbook.Queries(i)
qry_formula = qry.Formula
Next i

End Sub