let
Source = Json.Document(Web.Contents("https://api.binance.com/api/v1/klines?symbol=BTCUSDT&interval=1w&limit=50")),
#"Converted to Table" = Table.FromList(Source, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
#"Extracted Values" = Table.TransformColumns(#"Converted to Table", {"Column1", each Text.Combine(List.Transform(_, Text.From), "#(tab)"), type text}),
#"Split Column by Delimiter" = Table.SplitColumn(#"Extracted Values", "Column1", Splitter.SplitTextByDelimiter("#(tab)", QuoteStyle.Csv), {"Column1.1", "Column1.2", "Column1.3", "Column1.4", "Column1.5", "Column1.6", "Column1.7", "Column1.8", "Column1.9", "Column1.10", "Column1.11", "Column1.12"}),
#"Changed Type" = Table.TransformColumnTypes(#"Split Column by Delimiter",{{"Column1.1", type number}, {"Column1.2", type text}, {"Column1.3", type text}, {"Column1.4", type text}, {"Column1.5", type text}, {"Column1.6", type text}, {"Column1.7", type number}, {"Column1.8", type text}, {"Column1.9", Int64.Type}, {"Column1.10", type text}, {"Column1.11", type text}, {"Column1.12", Int64.Type}}),
#"Renamed Columns" = Table.RenameColumns(#"Changed Type",{{"Column1.1", "Open time"}, {"Column1.2", "Open"}, {"Column1.3", "High"}, {"Column1.4", "Low"}, {"Column1.5", "Close"}, {"Column1.6", "Volume"}, {"Column1.7", "Close time"}, {"Column1.8", "Quote asset volume"}, {"Column1.9", "Number of trades"}, {"Column1.10", "Taker buy base asset volume"}, {"Column1.11", "Taker buy quote asset volume"}, {"Column1.12", "Ignore"}})
in
#"Renamed Columns"
загружающий данные из веб-источника.
Возникла потребность оперативного изменения URL в запросе. Хотелось бы это сделать, чтобы URL вводился в ячейку на листе (например, A1), а запрос считывал бы данные из этой ячейки и использовал в качестве источника.
Возможно ли подобное? Пробовал записать макрос, но он не пишет действия из Power Query. Может быть это можно сделать в самом коде запроса или как-то по-другому?
Уже смотрю, спасибо == Upd: Помогло создание таблицы params в текущем worksheet, с указанием параметров в запросе в ввиде переменных "&Excel.CurrentWorkbook(){[Name="params"]}[Content]{0}[Код валюты]&"