ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 请高手帮忙: 多个网页数据导入excel

[复制链接]

TA的精华主题

TA的得分主题

发表于 2011-5-4 12:58 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
按你的方法改好了,太牛了。

TA的精华主题

TA的得分主题

发表于 2011-5-4 21:25 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助

哈哈,搞定了。

原帖由 ck1668 于 2011-5-1 12:17 发表


老师,经过今天反复的实验,应该是没问题了。
但为了更加完善这个表格,我又有一个新的想法,考虑到工作簿里面的表格一旦多起来的时候,不知道当天的大盘是涨还是跌,要是表格里面能够有每天的大盘涨跌幅就好了 ...


借用了论坛某位高手的窗体做成的(忘了是谁,实在是不好意思,如果路过,烦请露个脸,面谢:))
大盘的数据可以在窗体里面查询,窗体打开EXCEL自动加载,隐藏在屏幕的左上角位置,就是按钮的左边,鼠标移过去就会出来,窗体可隐藏。如下图。

[ 本帖最后由 xmyjk 于 2011-5-4 21:31 编辑 ]
222.jpg

终结版股票V3.3.rar

746.04 KB, 下载次数: 55

TA的精华主题

TA的得分主题

发表于 2011-5-4 22:09 | 显示全部楼层
对了,大哥,以前你做的好象不能即时刷新。这个行不?明天试下。还有能不能在窗体上显示大盘的点数。如现在上证是2866.02,深证:12070.4,谢谢。

TA的精华主题

TA的得分主题

发表于 2011-5-5 09:18 | 显示全部楼层
原帖由 xmyjk 于 2011-5-4 21:25 发表


借用了论坛某位高手的窗体做成的(忘了是谁,实在是不好意思,如果路过,烦请露个脸,面谢:))
大盘的数据可以在窗体里面查询,窗体打开EXCEL自动加载,隐藏在屏幕的左上角位置,就是按钮的左边,鼠标移过去就 ...


老师,你这个窗体做得很好,但我想每天的数据上面有当天的大盘涨跌幅就好了,就像我在87楼讲的:“当工作簿里面的表格一旦多起来的时候,不知道当天的大盘是涨还是跌,要是表格里面能够有每天的大盘涨跌幅就好了,这样在参考之前的资金流入时,就可以看到当天的大盘涨跌情况。我把这个想法做在表里,但当我加上这个涨跌时,统计表里的排序功能就改了”,具体请看下面附件,麻烦你帮我再修改一下,非常感谢!
股票 - 完美版.zip (439.55 KB, 下载次数: 17)

TA的精华主题

TA的得分主题

发表于 2011-5-5 10:21 | 显示全部楼层
现在在表格中加入每一天大盘数据已经非常困难了。因此,当日的才选用窗体进行操作的,每天待研究吧……

[ 本帖最后由 xmyjk 于 2011-5-5 10:30 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-5-5 11:05 | 显示全部楼层
老师,下面这个网站介绍了一个自定义RTD函数,方便处理股票行情,看能否在它的代码上改一下,弄一个呢?这个程序主要把里面的RND产生的虚拟数据改成实际的网站数据就可以了,主要用涨跌幅数据,谢谢http://msdn.microsoft.com/en-us/library/aa140061(office.10).aspx

TA的精华主题

TA的得分主题

发表于 2011-5-5 16:37 | 显示全部楼层
原帖由 xmyjk 于 2011-5-5 10:21 发表
现在在表格中加入每一天大盘数据已经非常困难了。因此,当日的才选用窗体进行操作的,每天待研究吧……


老师,那不要搞了,免得耽误你太多的时间,麻烦你帮我做一个这样的修改算了,把之前表里的“中单净流入”改为“涨跌幅”,看看每天的涨跌幅算了。

*** 加上附件。
老师,我把每天的大盘涨跌幅加到“起始页”里,但当刷新自选股后,大盘涨跌幅的颜色就全部变回黑色了(刷新之前我设置好涨的是红色字体,跌的是绿色),还有,那你原来帮我设置好的黄底、绿底、蓝色底也都没有了。麻烦你帮我看一下,感谢!

股票 - 完美版.zip (402.09 KB, 下载次数: 18)

[ 本帖最后由 ck1668 于 2011-5-5 18:32 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-5-6 00:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
原帖由 ck1668 于 2011-5-5 16:37 发表


老师,那不要搞了,免得耽误你太多的时间,麻烦你帮我做一个这样的修改算了,把之前表里的“中单净流入”改为“涨跌幅”,看看每天的涨跌幅算了。

*** 加上附件。
老师,我把每天的大盘涨跌幅加到“起始页” ...


把模块2里面的:Cells.FormatConditions.Delete,改成:
[c10].Resize([c65536].End(3).Row - 9, [iv10].End(xlToLeft).Column - 2).FormatConditions.Delete
就不会改变你大盘的数据的条件格式了。

黄绿蓝不会出现的是因为,你把各个日期子表删除了,这个说来话长了,我统计表和自选股表里面的底面颜色均是子表的数量来做逻辑的,
如果各个日期子表存在情况不会出现这个问题。

改中单净流入为涨跌幅的明天弄吧,今天实在太忙了。。。
看了你的表,也就是,你不需要中单净流入啦?这个中单的数据你不用参考啦是么?

[ 本帖最后由 xmyjk 于 2011-5-6 00:47 编辑 ]

TA的精华主题

TA的得分主题

发表于 2011-5-6 09:29 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
老师,你好!因为我这个表都耽误你不少时间,真的不好意思。
1,大盘格式已按你的代码改了,谢谢你!
2,黄绿蓝的底色可能是你说的那个原因,等你把“中单净流入”改为“涨跌幅”后应该没问题了。
3,考虑到“涨跌幅”的参考价值大过“中单净流入”,加上Excel表格空间有限,故中单的数据就不参考了,但位置你帮我调整一下,顺序依次为:净流入,涨跌幅,大单净流入,非常感谢!

TA的精华主题

TA的得分主题

发表于 2011-5-6 09:33 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
原帖由 ck1668 于 2011-5-6 09:29 发表
老师,你好!因为我这个表都耽误你不少时间,真的不好意思。
1,大盘格式已按你的代码改了,谢谢你!
2,黄绿蓝的底色可能是你说的那个原因,等你把“中单净流入”改为“涨跌幅”后应该没问题了。
3,考虑到“涨跌 ...

行,晚上点帮你改。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-12-12 10:11 , Processed in 0.048511 second(s), 7 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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