power query 网抓时怎么找到真实的地址？

poohyxp

1. let
   
2.     函数 =(page)=> Web.Page(Web.Contents("http://data.eastmoney.com/cjsj/newhousepriceindex.aspx?p="& page &"")){0}[Data]
   
3. ,
   
4.     分页 = {1..5},
   
5.     转换为表 = Table.FromList(分页, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
   
6.     重命名的列 = Table.RenameColumns(转换为表,{{"Column1", "page"}}),
   
7.     更改的类型 = Table.TransformColumnTypes(重命名的列,{{"page", type text}}),
   
8.     已添加自定义 = Table.AddColumn(更改的类型, "分页数据", each 函数("分页")),
   
9.     #"展开的“分页数据”" = Table.ExpandTableColumn(已添加自定义, "分页数据", {"日期", "城市", "新建住宅价格指数 环比", "新建住宅价格指数 同比", "新建住宅价格指数 定基", "新建商品住宅价格指数 环比", "新建商品住宅价格指数 同比", "新建商品住宅价格指数 定基", "二手住宅价格指数 环比", "二手住宅价格指数 同比", "二手住宅价格指数 定基"}, {"分页数据.日期", "分页数据.城市", "分页数据.新建住宅价格指数 环比", "分页数据.新建住宅价格指数 同比", "分页数据.新建住宅价格指数 定基", "分页数据.新建商品住宅价格指数 环比", "分页数据.新建商品住宅价格指数 同比", "分页数据.新建商品住宅价格指数 定基", "分页数据.二手住宅价格指数 环比", "分页数据.二手住宅价格指数 同比", "分页数据.二手住宅价格指数 定基"}),
   
10.     筛选的行 = Table.SelectRows(#"展开的“分页数据”", each ([分页数据.新建住宅价格指数 环比] <> "-" and [分页数据.新建住宅价格指数 环比] <> "上一页12345下一页  转到Go" and [分页数据.新建住宅价格指数 环比] <> "新建住宅价格指数" and [分页数据.新建住宅价格指数 环比] <> "环比"))
    
11. in
    
12.     筛选的行

复制代码

工作状态

实用，多谢分享