ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
楼主: 123Q

[求助] 点击按钮获取网站数据(获取股票价格)

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-13 20:46 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
不报错了,但是好像数据的行数有限制,看代码,这里不太明白,这个IF语句为什么等于200呢?把200这个数值改大也没有用,总是报没有发现。
If httpreq.Status = 200 Then

[ 本帖最后由 123Q 于 2009-12-13 20:47 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-12-17 17:57 | 显示全部楼层

回复 9楼 winland 的帖子

您好,您做的很好!有点小建议,能否加一个自动更新、停止自动更新、还有点击回车就是立即更新!如果改成新浪的数据是否就没有股票数量限制了,那样就更完美了!我的问题是不是比较多

TA的精华主题

TA的得分主题

发表于 2009-12-17 20:58 | 显示全部楼层
原帖由 123Q 于 2009-12-13 20:46 发表
不报错了,但是好像数据的行数有限制,看代码,这里不太明白,这个IF语句为什么等于200呢?把200这个数值改大也没有用,总是报没有发现。
If httpreq.Status = 200 Then

行数的限制是由于网站的原因,GET方法递交数据的长度应该是有限制的。
你如果需要所有股票的数据,这里有个现成的例子。
http://club.excelhome.net/viewth ... p;extra=&page=3

If语句是判断HTTP返回状态,200表示可以访问,还有很多其它的状态码。

TA的精华主题

TA的得分主题

发表于 2009-12-17 21:01 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 lmrs333 于 2009-12-17 17:57 发表
您好,您做的很好!有点小建议,能否加一个自动更新、停止自动更新、还有点击回车就是立即更新!如果改成新浪的数据是否就没有股票数量限制了,那样就更完美了!我的问题是不是比较多

如楼上的链接中有下载完整股票数据的例子。
关于自动更新,比较少用,因为觉得点击一下按钮也不难。你可以在论坛里搜索一下定时器的代码,稍作修改应该就可以用上了。

TA的精华主题

TA的得分主题

发表于 2009-12-17 21:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
想请教一下winland 版主,open中的网址是怎么知道的?

TA的精华主题

TA的得分主题

发表于 2009-12-17 21:38 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 morning_ch 于 2009-12-17 21:29 发表
想请教一下winland 版主,open中的网址是怎么知道的?

这个是根据一些HTTP头部信息分析工具获得的。FireFox装个HttpFox的插件。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-17 21:41 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 14楼 winland 的帖子

版主终于驾到了,200的问题我也觉得是网站的限制,我不是要全部的股票市值,只是表中数据太多了,有的并不需要查询,现在将不需要查询的已经排除在外,所以200行已经足够用了。现在主要卡在网址的问题了,不知道版主是如何找到网址的,我现在想找sohu的基金数据,看版主的地址格式,好像是利用自选股的表单提交的方式,不知道能否告之,怎么才能找到所需要的网址?谢谢!等了好几天了。急呀~~

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-12-17 21:49 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册

回复 17楼 winland 的帖子

版主介绍的股票帖子已经拜读了,还不是很明白。
原来网址还要需要专门的工具,是不是还有可以弄清数据组的专门工具呢?
再次谢谢版主!能否麻烦版主给一下基金的网址,我马上去拜读版主介绍的另一个帖子。

TA的精华主题

TA的得分主题

发表于 2009-12-17 21:49 | 显示全部楼层
200的问题确实是网站的原因,本人利用了以200为单位进行for ....next ,可以解决并一次提取全部的股票信息,就是像18楼的疑问一样,网址真是搞不明白?

TA的精华主题

TA的得分主题

发表于 2009-12-17 21:50 | 显示全部楼层

回复 6楼 winland 的帖子

谢谢您的回答!!!!!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-13 00:52 , Processed in 0.030526 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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