[已解决]如何将网页里多页的数据导入工作表里

zhusong19989

Excel学徒123 发表于 2015-5-12 21:48
变量在代码运行完之后就自动释放了
，所以不是这个问题

把老师难住了

Excel学徒123

zhusong19989 发表于 2015-5-12 21:52
把老师难住了

网抓还没学，慢慢来

zhusong19989

Excel学徒123 发表于 2015-5-12 21:57
网抓还没学，慢慢来

别慢慢来了，我还等着用呢，加油！

雪舞子

zhusong19989 发表于 2015-5-12 20:59
Option Explicit
Sub test()
    Dim HTML, tb, i&, j&, x&, n&, s$

楼主说了这么多，你到底想要什么？
本帖问题得到解决了吗？
你要全部64页数据，代码已都抓取出来了，
你还要改什么？

zhusong19989

雪舞子 发表于 2015-5-13 09:29
楼主说了这么多，你到底想要什么？
本帖问题得到解决了吗？
你要全部64页数据，代码已都抓取出来了，

亲呀

我还有其他网页的数据需要导入，需要把程序改动后再用于其他网页。比如：

https:（因本人级别低，不能发链接）//gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733949&lx=1

https:（因本人级别低，不能发链接）//gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733969&lx=1
.........
还有其他90个网页的数据需要整理呢

总不能一个网页麻烦各位一次呀，所以想在各位程序的基础上改动后使用。

再有，12楼的编码是我改动后的，但数据导入后不对，漏了很多，重复了很多。

故而求问，请指教！

zhusong19989

雪舞子 发表于 2015-5-13 09:29
楼主说了这么多，你到底想要什么？
本帖问题得到解决了吗？
你要全部64页数据，代码已都抓取出来了，

我又重新试了你的这个，好使，数据全面了，谢谢谢谢！

zhusong19989

亲呀

http:（本人级别低不能发链接）//gaokao.chsi.com.cn/lqfs/query.do?ssdm=11&yxlx=-1&yxszd=-1&yxls=-1&kldm=11&score=600&year=2014&ranger=10&chs=1&start=0

这个不行，我都登录了，出来的数据都是用户名、密码、验证码。

roych

一般来说，服务端是设置了禁止频繁发送http请求的。缓一下，隔几秒再发送http请求吧。

zhusong19989

roych 发表于 2015-5-13 11:31
一般来说，服务端是设置了禁止频繁发送http请求的。缓一下，隔几秒再发送http请求吧。

http:（）//gaokao.chsi.com.cn/sch/search--ss-on,searchType-1,option-qg,start-0.dhtml
http:（）//gaokao.chsi.com.cn/sch/search--ss-on,searchType-1,option-qg,start-20.dhtml
http:（）//gaokao.chsi.com.cn/sch/search--ss-on,searchType-1,option-qg,start-40.dhtml
这个网页有128页，不是“2014&ranger=10&chs=1&start=0、1、2...”带着“=”，怎么在程序中修改循环呀？

roych

zhusong19989 发表于 2015-5-13 11:50
http:（）//gaokao.chsi.com.cn/sch/search--ss-on,searchType-1,option-qg,start-0.dhtml
http:（）//g ...

前面雪舞子不是弄好了么？
"https://gaokao.chsi.com.cn/zzbm/mdgs/detail.action?oid=476733931&lx=1&start=" & 30 * x
把这个“30*x”改为“x”就行了啊，不过这次给的连接跟之前的地址不一致。我没有账号登录，看不到下一页是什么样的url。