ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
Python自动化办公应用大全 Excel 2021函数公式学习大典 Kutools for Office 套件发布 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 5096|回复: 10

[求助] PQ从固定网址 抓取数据, 取不到数

[复制链接]

TA的精华主题

TA的得分主题

发表于 2018-3-27 01:12 | 显示全部楼层 |阅读模式
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 lifepop 于 2018-3-27 22:56 编辑

需要从 http://www.178448.com/fjzt-1.html?page=1  这个网页抓取数据,从第一页开始抓,一直抓取到第40页。

求助各位老师,改如何写代码,  取不到数。图片见楼下

et
    page={1..40},//抓取40页
    fx=(p as number)=>
    let
        源 = Web.Page(Web.Contents("http://www.178448.com/fjzt-1.html?page="&Number.ToText(p))),
        Data0 = 源{0}[Data]
    in
        Data0,
    F=Table.TransformColumns(Table.FromList(page,Splitter.SplitByNothing(),{"页码"}),{"页码",each fx(_)}),
    rewardslist= Table.ExpandTableColumn(F, "页码", {"伏击人","成功","成功率","伏击股票","伏击理由",        "伏击时间","伏击价","当前价","涨幅","涨停","涨停日期"})
in
    rewardslist

TA的精华主题

TA的得分主题

发表于 2018-3-27 08:27 | 显示全部楼层
需要网抓,看高手的

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-3-27 10:57 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
shaokui123 发表于 2018-3-27 08:27
需要网抓,看高手的

貌似要写代码  

要从1 to  n   循环抓取

TA的精华主题

TA的得分主题

发表于 2018-3-27 11:39 | 显示全部楼层
PQ抓了40页。。
let
    page={1..40},//抓取40页
    fx=(p as number)=>
    let
        源 = Web.Page(Web.Contents("http://www.178448.com/fjzt-1.html?page="&Number.ToText(p))),
        Data0 = 源{0}[Data]
    in
        Data0,
    F=Table.TransformColumns(Table.FromList(page,Splitter.SplitByNothing(),{"页码"}),{"页码",each fx(_)}),
    rewardslist= Table.ExpandTableColumn(F, "页码", {"伏击人","成功","成功率","伏击股票","伏击理由",        "伏击时间","伏击价","当前价","涨幅","涨停","涨停日期"})
in
    rewardslist

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-3-27 12:54 | 显示全部楼层
shaokui123 发表于 2018-3-27 11:39
PQ抓了40页。。
let
    page={1..40},//抓取40页

请问高手老师,这个代码怎么用,我是小白。。。。不知道从哪里导入执行,烦请指教,谢谢啦

TA的精华主题

TA的得分主题

发表于 2018-3-27 13:41 | 显示全部楼层
lifepop 发表于 2018-3-27 12:54
请问高手老师,这个代码怎么用,我是小白。。。。不知道从哪里导入执行,烦请指教,谢谢啦

我也是新手
PQ教程
http://www.officezhushou.com/excel2016/4862.html

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-3-27 15:40 | 显示全部楼层
shaokui123 发表于 2018-3-27 13:41
我也是新手
PQ教程
http://www.officezhushou.com/excel2016/4862.html

我刷新之后 取不到数据  ,不知道怎么修改了 。。
1.png

TA的精华主题

TA的得分主题

发表于 2018-3-27 15:58 | 显示全部楼层
我这破电脑IE总升级不了,所以PQ无法安装
实在不行用八爪鱼,免费的40页够了

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-3-27 20:19 | 显示全部楼层
shaokui123 发表于 2018-3-27 15:58
我这破电脑IE总升级不了,所以PQ无法安装
实在不行用八爪鱼,免费的40页够了

谢谢了, 是我太小白了。从没研究过,突发奇想抓数据。。。。   八爪鱼不太会用,继续寻求excel的解决办法

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-3-27 22:34 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
顶上去   pq 抓不到数据为什么。。。。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2025-12-20 22:48 , Processed in 0.029846 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表