OneDrive Direct Download Link Power Query

od-directlink.m

let
    Origen = let
    url = "https://api-badgerp.svc.ms/v1.0/token",
    body = Text.ToBinary("{""appid"":""00000000-0000-0000-0000-0000481710a4""}"),
    headers = [
        #"Content-Type" = "application/json"
    ],
    response = Web.Contents(
        url,
        [
            Headers = headers,
            Content = body
        ]
    ),
    token = Json.Document(response)[token]
in
    token,
    GetReddem = let
    url = "https://1drv.ms/x/c/......................................YOURLINK",
    source = Text.FromBinary(Web.Contents(url)),
    start = Text.PositionOf(source, """Redeem"":""") + Text.Length("""Redeem"":"""),
    remaining = Text.Middle(source, start),
    end = Text.PositionOf(remaining, """"),
    redeem = Text.Middle(remaining, 0, end)
in
    [Token = Origen, Redeem = redeem],
    ExcelInfo = let
    Token = GetReddem[Token],
    Redeem = GetReddem[Redeem],
    URL = "https://my.microsoftpersonalcontent.com/_api/v2.0/shares/u!" & Redeem & "/driveItem?action=EmbedView&$select=id,openWith,officebundle,currentUserRole,eTag,name,size,content.downloadUrl,file,sharepointIds,sensitivityLabel,webUrl,webDavUrl,parentReference,vault",
    Headers = [
            #"Authorization" = "Badger " & Token,
            #"accept" = "application/json",
            #"accept-language" = "es-ES,es;q=0.9",
            #"origin" = "https://onedrive.live.com",
            #"prefer" = "autoredeem",
            #"priority" = "u=1, i",
            #"referer" = "https://onedrive.live.com/",
            #"sec-ch-ua" = """Google Chrome"";v=""131"", ""Chromium"";v=""131"", ""Not_A Brand"";v=""24""",
            #"sec-ch-ua-mobile" = "?0",
            #"sec-ch-ua-platform" = """Windows""",
            #"sec-fetch-dest" = "empty",
            #"sec-fetch-mode" = "cors",
            #"sec-fetch-site" = "cross-site",
            #"user-agent" = "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/131.0.0.0 Safari/537.36"
        ],
    Response = Web.Contents(URL, [ Headers = Headers ]),
    json =  Json.Document(Response)
in
    json,
    Excel = Excel.Workbook(Web.Contents(ExcelInfo[#"@content.downloadUrl"]), null, true)
in
    Excel