excel - 如何在不将值转换为公式的情况下更改 Power Query 中的参数？

Question

我按照这个线程上的说明进行操作:

How to Change Excel Power Query Paramaters with VBA

其中列出了用于更改 Power Query 参数的以下代码:

ThisWorkbook.Queries([ParameterName]).Formula = 'New code here

但是，它将值转换为公式并在其前面添加“=”:



我需要更新我的查询源，因为 GUID 过期并且需要刷新。

    Source = Xml.Tables(Web.Contents("http://api.aceproject.com/?fct=getprojects&guid=" & GUID & "&Filtercompletedproject=False&projecttemplate=0&assignedonly=True")),

我能找到的唯一解决方案需要使用存储在单元格中的值，但出于安全原因，我想避免将 GUID 存储在单元格中。

使用 VBA 如何仅更改参数值(而不将其转换为公式)或整个源 URL？

Answer 1

解决方案是使用双引号将文本值强制为公式:

ThisWorkbook.Queries("GUID").Formula = """dogs"""

这是最终版本，它将变量作为文本传递:

Sub RefreshQuery_Click()
    ThisWorkbook.Queries("GUID").Formula = """" & GUID & """"
End Sub

为确保查询保留参数属性，请添加以下元数据:

    ThisWorkbook.Queries("GUID").Formula = """" & GUID & """" & " meta [IsParameterQuery=true, Type=""Text"", IsParameterQueryRequired=true]"