使用PowerQuery自动抓取某度搜索结果首项的网页链接

为了提高工作效率，不加班，所以弄了一个excel表，以达成：在首列输入一个公司的名字，通过PowerQuery完成在某度搜索关键字“公司名(空格) site:www.tianyancha.com”，在第二列返回某度搜索结果首项的页面URL。我用了Web.Contents函数，可是返回的结果里面死活找不到首项的返回地址.....所以跑来求助各位大神。此奉上示例文件以及预付我的膝盖..... 9827012005492.rar (16.7 KB, 下载次数: 0)

2020-9-16 04:53 上传

点击文件名下载附件


由于示例文件用2010制作，怕大神们的2010以上版本无法打开。因此描述文件制作过程：
1.首列字段名“公司名”，第二行输入“广州市诺信数字测控设备有限公司”；
2.加载至PQ
3.添加自定义列，输入=Web.Contents("https://www.baidu.com/s?wd="&[公司名]&"%20site%3Awww.tianyancha.com")，返回Binary数据，展开....然后就没有然后了

再次求救！

利用Text.FromBinary()返回网页文本，然后进行Text.Split()几次就能得到你要的url了、

fxl447098457 发表于 2018-3-29 07:22
利用Text.FromBinary()返回网页文本，然后进行Text.Split()几次就能得到你要的url了、

谢帅哥答！能请您上传一下示例文件吗？

谢帅哥答！能请您上传一下示例文件吗？

let
  源 = Excel.CurrentWorkbook(){[Name="表1_2"]}[Content],
  web= Table.AddColumn(源, "网址", each Text.Split(Text.Split(Text.Split(Text.FromBinary(Web.Contents("http://www.baidu.com/s?wd="
  &[公司名]&"%20site%3Awww.tianyancha.com")),"result c-container "" id=""1"""){1},"href=http://club.excelhome.net/"""){1},""""){0})
in
  web

let
  源 = Excel.CurrentWorkbook(){[Name="表1_2"]}[Content],
  web= Table.AddColumn(源, "网 ...

web= Table.AddColumn(源, "网址", each Text.Split(Text.Split(Text.Split(Text.FromBinary(Web.Contents("http://www.baidu.com/s?wd="
  &[公司名]&"%20site%3Awww.tianyancha.com")),"result c-container "" id=""1"""){1},"href=http://club.excelhome.net/"""){1},""""){0})


请问老师这一步是怎么理解的，能不能帮忙讲解下。

沙发？？？

为了三千积分！

在撸一遍。。。

我也来支持一下，这里的老师和其他机构不一样，其他就是让付费。