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

ziying35

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

复制代码

可以试一下我的这个

szbaodao

ziying35 发表于 2020-12-13 11:31
可以试一下我的这个

这个出现提示“应为令牌Eof"

x8515171

建议使用PAD去抓，只要几步就可以了，对新人非常友好。如果需要前面几年的，设个循环就可以。
我查看了下，还可以抓到同比的数据，如果不需要，可以导入PQ处理下。

onlyflyttn

x8515171 发表于 2023-1-7 14:15
建议使用PAD去抓，只要几步就可以了，对新人非常友好。如果需要前面几年的，设个循环就可以。
我查看了下 ...

power automate对抓取大量数据效率是不是很低？


比如我抓取这样的股票品种数据，每个品种要几十页。