如何用Excel得PQ功能获取股票网页上的财务报表信息？

1. // output
   
2. 
   let
   
3. 
     Source = Json.Document(
   
4. 
        Web.Contents(
   
5. 
          "https://stock.xueqiu.com/v5/stock/finance/cn/indicator.json?symbol=SH600019&type=Q4&is_detail=true&count=5×tamp=",
   
6. 
          [
   
7. 
            Headers=[
   
8. 
            Cookie="xq_a_token=1132205e8c57eb587b26526804cff9f3b6bf6799; xqat=1132205e8c57eb587b26526804cff9f3b6bf6799;
   
9. 
                xq_r_token=81b9c911ea3907729d8f8e9f60d9f5251227c551; xq_id_token=eyJ0eXAiOiJKV1QiLCJhbGciOiJSUzI1NiJ9.
   
10. 
                 eyJ1aWQiOi0xLCJpc3MiOiJ1YyIsImV4cCI6MTYwOTEyMzA1NywiY3RtIjoxNjA3ODI0MDQwMzc2LCJjaWQiOiJkOWQwbjRBWnVwIn0.
    
11. 
                 mfZxOe9GxjIZJeU__K02CXlHuzqC0auAb4w5Tm16W6-Yeb-71pUqxXcHin1pUN_2ow0IsHOx58VCq0-QzGVyQyL_kqatkOVpBV2rj3Dy
    
12. 
                 ISDr2E7nzH33qUi0CsPNaQrY4ropVjuUQ6PxWyGPkWQ0Zy3A_qpmh0FzYa5opxXx6IG_8jcccr7e4MCipoXKdGDXio76tQyM9-RmHwaHJH-
    
13. 
                 VhbGf5KRgDXreJXJ0ZQZ7o53mk5R1LwZXsihkqAMG-RcFcw_QwpEJ6JQxrTvxs_HfLxFOJxoJYPRNYJiNJlT1s3dYBsZ3pyyOrktbXbbxs
    
14. 
                 O9ERkgQrMoT4bCyp3sOvhxgUQ; u=771607824079184; Hm_lvt_1db88642e346389874251b5a1eded6e3=1607824083;
    
15. 
                 device_id=d2177603e44463b8d5865064d5a16948; Hm_lpvt_1db88642e346389874251b5a1eded6e3=1607824100",
    
16. 
    
    
17. 
             #"User-Agent"="Mozilla/5.0 (Windows NT 10.0; WOW64) AppleWebKit/537.36 (KHTML, like Gecko)
    
18. 
                 Chrome/72.0.3626.81 Safari/537.36 SE 2.X MetaSr 1.0",
    
19. 
    
    
20. 
             Referer="https://xueqiu.com/snowman/S/SH600019/detail"
    
21. 
            ]
    
22. 
          ]
    
23. 
          )
    
24. 
        )[data][list],
    
25. 
      sTbl = Table.FromRecords(Source),
    
26. 
      rmvCols = Table.RemoveColumns(sTbl,{"report_date", "ctime"}),
    
27. 
      trsp = Table.PromoteHeaders(Table.Transpose(Table.DemoteHeaders(rmvCols))),
    
28. 
      sort = Table.Sort(trsp, {each List.PositionOf(Record.FieldNames(FieldDic), [report_name]), 0}),
    
29. 
      trans = Table.TransformColumns(sort, {"report_name", each Record.Field(FieldDic, _)}, each _{0})
    
30. 
    in
    
31. 
      trans
    
32. 
    
    
33. 
    // FieldDic
    
34. 
    let
    
35. 
      Source = Text.FromBinary(Web.Contents("https://assets.imedao.com/ugc/js/vue-web-47f39502cb.js")),
    
36. 
      cnFieldsStr = Text.BetweenDelimiters(Source, "indicator1:{", "},indicator2:"),
    
37. 
      rec = Expression.Evaluate("[#"""&Text.Replace(Text.Replace(cnFieldsStr, ":", """="),",", ", #""")&"]"),
    
38. 
      oldfd_newfd_Lists = List.Transform(List.Select(Record.FieldNames(rec), (x)=>Text.Contains(x, "$")), each {_, Text.BeforeDelimiter(_, "$")}),
    
39. 
      dic = Record.RenameFields(rec, oldfd_newfd_Lists)
    
40. 
    in
    
41. 
      dic

复制代码

可以试一下我的这个

结果表

支持楼主，用户楼主，楼主英明呀！！！

顶起顶起顶起

路过的帮顶

向楼主学习

鼎力支持！！

广告位，，坐下看看

沙发~支持云发教育

谢谢，一直在学习云发教育课程！

有空大家一起交流一下