使用宏更新电源查询中的“高级编辑器”行答案

【问题标题】：Update a line "Advanced editor" in power query with Macro使用宏更新电源查询中的“高级编辑器”行
【发布时间】：2020-03-24 08:42:09
【问题描述】：

快速提问。获得了指向已经在 excel 中设计（没有宏）的站点的数据链接。我只想在高级编辑器中用宏更改电源查询编辑器中的一小行。

代码：

let
 Source = Web.Page(Web.Contents("http://xxx.xxxxxx.xx.xx/xxx/XXX/user_id=111")),
 Data0 = Source{0}[Data],
 #"Removed Columns1" = Table.RemoveColumns(Data0,{"name"}),
 #"Removed Bottom Rows" = Table.RemoveLastN(#"Removed Columns1",1),
 #"Changed Type" = Table.TransformColumnTypes(#"Removed Bottom Rows",{{"number", type number}})
in
 #"Changed Type"

我想使用宏将 user_id 从 111 更新为 112（会让用户输入日期）我有很多这样的桌子，重新设计需要更多时间。

最好的问候。尼可

【问题讨论】：

标签： excel vba powerquery

【解决方案1】：

你可以使用类似这样的代码：

Sub UpdateQueries()
    Dim oQ As WorkbookQuery
    'Find queries using this table
    For Each oQ In ActiveWorkbook.Queries
        oQ.Formula = Replace(oQ.Formula,"user_id=111""","user_id=112""")
    Next
End Sub

【讨论】：

谢谢，完美运行。正是我想要的！尼可