Обновите строку «Расширенный редактор» в силовом запросе с помощью макроса

Question

Быстрый вопрос. Получил ссылку на данные сайта, который уже разработан (без макроса) в 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 с помощью макроса ( заставит пользователя вводить дату) Я получил много таких таблиц, и для его доработки потребуется больше времени.

С уважением. Niko

Answer 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