用 Power Query 提取网页数据

一江春水1688

一江春水1688 发表于 2023-11-13 17:21
巧改网站查询参数，一次取一万条，可以不分页，代码稍后提供

研究了Table.RenameColumns容错参数，完美解决出错问题

一江春水1688

一江春水1688 发表于 2023-11-13 17:21
巧改网站查询参数，一次取一万条，可以不分页，代码稍后提供

研究了Table.FromRecords的容错参数，完美解决出错问题
代码如下：

1. let
   
2.     url="https://fx.cmbchina.com/api/v1/fx/history-rate/page",
   
3.     page = 1,
   
4.     headers=[#"Content-Type"="application/json;charset=UTF-8"],
   
5.     //2009-01-01至2050-11-12，一次性取1万条数据，这样就不用分页了，实际返回没有这么多。
   
6.     content="{""nbr"":""港币"",
   
7.     ""startDate"":""2009-01-01"",
   
8.     ""endDate"":""2050-11-12"",
   
9.     ""pageSize"":""10000"",
   
10.     ""pageNum"":" & Text.From(page) & "}",
    
11.     web=Text.FromBinary(Web.Contents(url,[Headers=headers,Content=Text.ToBinary(content)])),
    
12.     //加了个容错参数 MissingField.UseNull，完美解决出错问题
    
13.     data = Table.FromRecords(Json.Document(web)[body][list],{"ratDat", "rthBid", "rtcBid", "rthOfr", "rtcOfr"},MissingField.UseNull),
    
14.     重命名的列 = Table.RenameColumns(data,{{"ratDat", "日期"}, {"rthBid", "汇买价"}, {"rtcBid", "钞买价"}, {"rthOfr", "汇卖价"}, {"rtcOfr", "钞卖价"}})
    
15. in
    
16.     重命名的列

复制代码

一江春水1688

一江春水1688 发表于 2023-11-13 17:21
巧改网站查询参数，一次取一万条，可以不分页，代码稍后提供

静听溪流

quqiyuan 发表于 2023-11-13 15:11
我觉得主要问题是10楼怎么能找到这个地址？
https://fx.cmbchina.com/api/v1/fx/history-rate/page

一江春水1688

quqiyuan  2023-11-13 15:11
10
https://fx.cmbchina.com/api/v1/fx/history-rate/page

F12-->-->л-->F5-->Ctrl+F93.10-->......

一江春水1688

quqiyuan 发表于 2023-11-13 15:11
我觉得主要问题是10楼怎么能找到这个地址？
https://fx.cmbchina.com/api/v1/fx/history-rate/page

quqiyuan

我对HTML这些东西一窍不通，感谢楼上两位。