{"data":{"user":{"edge_owner_to_timeline_media":{"count":347,"page_info":{"has_next_page":false,"end_cursor":null},"edges":[]}}},"status":"ok"}

// data (2)
let
    Source = Json.Document(File.Contents("g:\zelen\Desktop\XLS\data.txt")),
    data1 = Source[data],
    user = data1[user],
    edge_owner_to_timeline_media = user[edge_owner_to_timeline_media],
    edges = edge_owner_to_timeline_media[edges],
    #"Converted to Table" = Table.FromList(edges, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    #"Expanded {0}" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", {"node"}, {"node"}),
    #"Expanded {0}1" = Table.ExpandRecordColumn(#"Expanded {0}", "node", {"id", "__typename", "edge_media_to_caption", "shortcode", "edge_media_to_comment", "comments_disabled", "taken_at_timestamp", "dimensions", "display_url", "edge_media_preview_like", "owner", "thumbnail_src", "thumbnail_resources", "is_video", "video_view_count"}, {"id", "__typename", "edge_media_to_caption", "shortcode", "edge_media_to_comment", "comments_disabled", "taken_at_timestamp", "dimensions", "display_url", "edge_media_preview_like", "owner", "thumbnail_src", "thumbnail_resources", "is_video", "video_view_count"})
in
    #"Expanded {0}1"

let    
    Source = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Typed  = Table.TransformColumnTypes(Source ,{"Столбец1", type text}),
    Source2 = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    Typed2  = Table.TransformColumnTypes(Source2 ,{"Столбец1", type text}),
 
    Custom1 = Table.FromColumns({Typed[Столбец1],Typed2[Столбец1]}),
    Custom2 = Table.AddColumn(Custom1, "a", each Json.Document(Web.Contents("https://www.instagram.com/graphql/query/?query_hash=472f257a40c653c64c666ce877d59d2b&variables={""id"":"""&[Column1]&""",""first"":12,""after"":"""&[Column2]&"""}"))),

//это функция разброра одного ответа:
    OneJson = (Response)=>
    let
        data1 = Response[data],
        user = data1[user],
        edge_owner_to_timeline_media = user[edge_owner_to_timeline_media],
        edges = edge_owner_to_timeline_media[edges],
        #"Converted to Table" = Table.FromList(edges, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
        #"Expanded {0}" = Table.ExpandRecordColumn(#"Converted to Table", "Column1", {"node"}, {"node"}),
        #"Expanded {0}1" = Table.ExpandRecordColumn(#"Expanded {0}", "node", {"id", "__typename", "edge_media_to_caption", "shortcode", "edge_media_to_comment", "comments_disabled", "taken_at_timestamp", "dimensions", "display_url", "edge_media_preview_like", "owner", "thumbnail_src", "thumbnail_resources", "is_video", "video_view_count"}, {"id", "__typename", "edge_media_to_caption", "shortcode", "edge_media_to_comment", "comments_disabled", "taken_at_timestamp", "dimensions", "display_url", "edge_media_preview_like", "owner", "thumbnail_src", "thumbnail_resources", "is_video", "video_view_count"})
    in
        #"Expanded {0}1",
// это столбец, в котором функция применяется к ответам:
    Result = Table.AddColumn(Custom2, "Result", each OneJson([a]), type table)
in
    Result

let
    Source =  let
                 a = (a) => 
                     List.Transform(
                         Excel.CurrentWorkbook(){[Name = a]}[Content][Столбец1], 
                         Text.From
                     )
              in
                 Table.FromColumns({a("Таблица1"), a("Таблица2")}),
    Custom1 = Table.AddColumn(
                  Source, 
                  "a", 
                  each let
                      json      = Json.Document(Web.Contents(
                                      "https://www.instagram.com/graphql/query/?query_hash=472f257a40c653c64c666ce877d59d2b&variabl...; & 
                                      [Column1]& """,""first"":12,""after"":""" & [Column2] & """}"
                                  )),
                      tbl       = Table.FromRecords(
                                      List.Transform(json[data][user][edge_owner_to_timeline_media][edges], each [node]?), 
                                      null, 
                                      2
                                  ),
                      transform = Table.ReplaceValue(tbl, null, null, 
                                      (a, b, c) => let
                                          a = if a is record 
                                                  then Record.ToList(a){0} 
                                                  else a,
                                          b = if a is list
                                              then if a{0}[node]? <> null
                                                  then a{0}[node][text]
                                                  else Table.FromRecords(a)
                                              else a
                                      in
                                          b, 
                                      {"edge_media_to_caption", "edge_media_to_comment", "edge_media_preview_like", "owner", "thumbnail_resources"}
                                  ),
                      expand    = Table.ExpandRecordColumn(transform, "dimensions", {"height", "width"}, {"dimensions.height", "dimensions.width"}),
                      expand1   = Table.ExpandTableColumn(expand, "thumbnail_resources", 
                                      {"src", "config_width", "config_height"}, 
                                      {"thumbnail_resources.src", "thumbnail_resources.config_width", "thumbnail_resources.config_height"}
                                  )
                  in
                      if Table.RowCount(tbl) > 0 then expand1 else tbl
              ),
    Custom2 = Table.Combine(
                  Table.ReplaceValue( Custom1, each [Column1], each [Column2], 
                      (a, b, c) => Table.AddColumn(Table.AddColumn(a, "ID", each b), "after", each c), 
                      {"a"}
                  )[a]
              )
in
    Custom2

if typename = "GraphVideo" (product_type) then 

   ( "typename" = "GraphVideo"
   "id",
   "shortcode",
   "edge_media_to_caption":{"edges":[{"node":{"text":""}}]},
   "edge_media_to_comment":{"count":},
   "comments_disabled",
   "taken_at_timestamp",
   "edge_media_preview_like":{"count":}
   "location",
   "thumbnail_src",
   "product_type",
   "title",
   "video_duration",
   "video_view_count" )

if typename = "GraphImage" then 

   ( "typename" = "GraphVideo",
   "id",
   "shortcode",
   "accessibility_caption",
   "edge_media_to_caption",
   "edge_media_to_comment",
   "comments_disabled",
   "taken_at_timestamp",
   "edge_media_preview_like",
   "location",
   "thumbnail_src" )

if typename = "GraphVideo" then 

   ( "__typename",
   "id",
   "shortcode",
   "edge_media_to_caption",
   "edge_media_to_comment",
   "comments_disabled",
   "taken_at_timestamp",
   "edge_media_preview_like",
   "location",
   "thumbnail_src",
   "video_view_count" )

if typename = "GraphSidecar" then 

   ( "__typename",
   "id",
   "shortcode",
   "edge_media_to_caption",
   "edge_media_to_comment",
   "comments_disabled",
   "taken_at_timestamp",
   "edge_media_preview_like",
   "thumbnail_src" )