求助抓取新浪行情

五指山888 · 发表于 2016-9-19 14:39

本帖最后由五指山888 于 2016-9-20 09:59 编辑

liu-aguang 发表于 2016-9-19 11:29
这下就快了：
Sub 股票1()
Set oHttp = CreateObject("winHttp.winHttpRequest.5.1")

谢谢老师，确实快很多，只是13列后面数据没有，至少有20列数据，行数我知道修改，列数老师可修改下吗？哪位老师能帮忙完善一下吗？

五指山888 · 发表于 2016-9-20 10:01

YZC51 发表于 2016-9-19 08:51
修改一位老师的代码，名字不记得啦！请见谅！
因网址上不去，未经调试，请您自己测试！

那位老师能帮忙把这个很好的程序运行修改一下吗？

五指山888 · 发表于 2016-9-20 10:03

liu-aguang 发表于 2016-9-19 11:29
这下就快了：
Sub 股票1()
Set oHttp = CreateObject("winHttp.winHttpRequest.5.1")

这个程序也很好的，哪个老师能帮忙增加列数吗？13列以后不能显示

YZC51 · 发表于 2016-9-20 10:58

五指山888 发表于 2016-9-20 10:01
那位老师能帮忙把这个很好的程序运行修改一下吗？

找到原因啦！添加XML引用即可，3.0、4.0、5.0、6.0都行！

YZC51 · 发表于 2016-9-20 11:01

请看附件

两市停复牌一览dfcf.xls.rar (215.76 KB, 下载次数: 40)

liu-aguang · 发表于 2016-9-20 11:12

五指山888 发表于 2016-9-20 10:03
这个程序也很好的，哪个老师能帮忙增加列数吗？13列以后不能显示

自己去解析响应数据吧，里面就含20项数据。例子代码是根据网页显示的13项解析的。

五指山888 · 发表于 2016-9-20 11:59

本帖最后由五指山888 于 2016-9-20 13:11 编辑

YZC51 发表于 2016-9-20 10:58
找到原因啦！添加XML引用即可，3.0、4.0、5.0、6.0都行！

基本可以了

YZC51 · 发表于 2016-9-20 12:34

五指山888 发表于 2016-9-20 11:59
但还是第11句卡住

这句
Set objXML = New XMLHTTP30
修改为
Set objXML = CreateObject("Microsoft.XMLHTTP")
试下

五指山888 · 发表于 2016-9-20 13:42

YZC51 发表于 2016-9-20 12:34
这句
Set objXML = New XMLHTTP30
修改为

可以了，谢谢！

五指山888 · 发表于 2016-9-20 13:46

liu-aguang 发表于 2016-9-20 11:12
自己去解析响应数据吧，里面就含20项数据。例子代码是根据网页显示的13项解析的。

谢谢老师，我不会解析，也模拟不出来，只好请老师帮忙了

		自动登录	找回密码
密码			免费注册

[求助] 求助抓取新浪行情