let

    // Concatenates the Consumer Key & Consumer Secret and converts to base64

    authKey = "Basic " & Binary.ToText(Text.ToBinary(Text.From(Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{0}[значение])),0),
    url = "https://api.twitter.com/oauth2/token",
    // Uses the Twitter POST oauth2/token method to obtain a bearer token
    GetJson = Web.Contents(url,
            [
                Headers = [#"Authorization"=authKey,
                #"Content-Type"="application/x-www-form-urlencoded;charset=UTF-8"],
                Content = Text.ToBinary("grant_type=client_credentials")
            ]
        ),
    FormatAsJson = Json.Document(GetJson),

    // Gets token from the Json response

    AccessToken = FormatAsJson[access_token],
    AccessTokenHeader = "bearer " & AccessToken,

    // Uses the Twitter GET search/tweets method using the bearer token from the previous POST oauth2/token method

// Search string for user screen name:
    SearchString = Text.From(Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{1}[значение]),

// requests limit:
    Max_Requests_Count = Number.From(Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{2}[значение]),

Text.From(Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content]{1}[значение])

let
    Source = Fin.Graph("https://finance.com/v2.8/1715860158475554"),
    connections = Source[connections],
    feed = connections[feed],
    #"Removed Other Columns" = Table.SelectColumns(feed,{"story", "created_time", "id", "message"}),
    #"Replaced Value" = Table.ReplaceValue(#"Removed Other Columns","1715860158475554_","https://finance.com/youname/posts/",Replacer.ReplaceText,{"id"}),
    #"Reordered Columns" = Table.ReorderColumns(#"Replaced Value",{"id", "story", "created_time", "message"}),
    #"Renamed Columns" = Table.RenameColumns(#"Reordered Columns",{{"id", "permalink_url"}})
in
    #"Renamed Columns"