Excel “更新一行”；高级编辑“；带宏的电力查询

快速提问。获取了指向已在excel中设计（没有宏）的站点的数据链接。 我只想在power query editor with macro的高级编辑器中更改一小行

守则：

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"

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

致以最良好的祝愿。

---

Niko

您可以使用类似以下代码：

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

---

谢谢你，工作完美无瑕。正是我要找的！尼科