用VBA按网页下拉框指定期号抓取所需内容

mzbao

WYS67 发表于 2018-12-13 07:50
老师：如上面截图所示，重庆时时彩和江苏快三格式基本相同【只是网址有别】，为什么下载重庆时时彩时 ...

你重庆的是时时彩，和江苏的快3的地址结构不一样。重新的时时彩地址为：
http://kaijiang.500.com/static/p ... haoxml/20181213.xml

你根据需要把后面的日期改一下就可以了，我就不帮你改代码了。

WYS67

mzbao 发表于 2018-12-13 09:11
你重庆的是时时彩，和江苏的快3的地址结构不一样。重新的时时彩地址为：
http://kaijiang.500.com/stati ...

老师：我用的是360极速浏览器，是在http://www.500.com/网站的http://kaijiang.500.com/ssc.shtml网址下载重庆时时彩的，您提到的网址http://kaijiang.500.com/static/p ... haoxml/20181213.xml打不开！显示如下错误：

如果用http://kaijiang.500.com/ssc.shtml网址，即可显示下面网页：

但在B1输入http://kaijiang.500.com/ssc.shtml后，点击宏按钮，就会发生运行时错误“5”，点击调试，弹出变成黄色的代码第七行 ShengFen = Left(ShengFen, InStr(ShengFen, "k3.") - 1)     ，这是什么原因？怎样才能抓取到重庆时时彩的开奖历史数据？

WYS67

mzbao 发表于 2018-12-13 09:11
你重庆的是时时彩，和江苏的快3的地址结构不一样。重新的时时彩地址为：
http://kaijiang.500.com/stati ...

老师：您说的这个网址http://kaijiang.500.com/static/p ... haoxml/20181213.xml在我的360极速浏览器中打不开，显示  403 Forbidden  错误：


怎样打开http://kaijiang.500.com/ssc.shtml，才能显示重庆时时彩的历史开奖数据页面：


但是，在B1输入http://kaijiang.500.com/ssc.shtml网址，点击宏按钮，却弹出下面的警告：



显示代码第七行

ShengFen = Left(ShengFen, InStr(ShengFen, "k3.") - 1)

变成了黄色填充，这是怎么回事，如何修改代码，才能正确抓取重庆时时彩的历史开奖数据？




重庆时时彩网页抓取数据.zip (200.95 KB, 下载次数: 1)

2018-12-14 00:22 上传

点击文件名下载附件

WYS67

恳请高手大神们帮忙解决43楼存在的问题。

WYS67

mzbao 发表于 2018-12-13 09:11
你重庆的是时时彩，和江苏的快3的地址结构不一样。重新的时时彩地址为：
http://kaijiang.500.com/stati ...

恳请老师按43楼的网址，作个重庆时时彩历史开奖数据的附件传上来。

WYS67

恳请高手大神们帮忙解决43楼存在的问题

WYS67

mzbao 发表于 2018-12-13 09:11
你重庆的是时时彩，和江苏的快3的地址结构不一样。重新的时时彩地址为：
http://kaijiang.500.com/stati ...

老师：恳请您看看43楼反映的问题怎么解决？

mzbao

WYS67 发表于 2018-12-14 11:59
老师：恳请您看看43楼反映的问题怎么解决？

每个彩种的地址不一样，所以我的代码不具有通用性。你要自己找数据地址。重启时时彩的代码我已经放在附件的模块2了。如果你还需要再抓其它彩种的数据，你自己得到论坛里学习一下王抓的基本知识。不然你找不到数据地址。有地址后，你把模块2里的第5行地址改一下就可以了。

WYS67

老师：恳请看看43楼反映的问题怎么解决？

WYS67

老师：恳请看看43楼反映的问题怎么解决？