金字塔决策交易系统

 找回密码
 

微信登录

微信扫一扫,快速登录

搜索
查看: 1912|回复: 2

VBA如何刷新股票池

[复制链接]

2

主题

14

帖子

14

积分

Rank: 1

等级: 新手上路

注册:
2021-5-27
曾用名:
发表于 2021-7-8 11:42 | 显示全部楼层 |阅读模式
使用VBA将股票加入股票池,在股票池页面一直打开的情况下不会自动刷新,需要手动刷新,或者重开页面,有没有什么办法自动刷新?
[Visual Basic] 复制代码
Sub UserForm1_CommandButton1_Click()
	Set C = CreateObject("Stock.Block")
	'call C.Open("自选股", 1)
	call C.ClearBlock("自选", "自选股")
	call C.AddStock("SZ", "000001")
call C.ToSave("自选", "自选股")
	C.ReFurbishView()
	Set C = nothing
	Report.Refresh()
End Sub

窗体

窗体

刷新前

刷新前

手动刷新后

手动刷新后


回复

使用道具 举报

31

主题

7889

帖子

7899

积分

Rank: 8Rank: 8

等级: 超级版主

注册:
2021-5-18
曾用名:
发表于 2021-7-8 14:16 | 显示全部楼层
问题已看到,会交开发组查下问题
金字塔提供一对一VIP专业技术指导服务,技术团队实时响应您的日常使用问题与策略编写。联系电话:021-20339086
回复

使用道具 举报

2

主题

14

帖子

14

积分

Rank: 1

等级: 新手上路

注册:
2021-5-27
曾用名:
 楼主| 发表于 2021-7-9 16:30 | 显示全部楼层
技术008 发表于 2021-7-8 14:16
问题已看到,会交开发组查下问题

请问有没有结果呢,是不是我的用法没对?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 微信登录

本版积分规则

手机版|小黑屋|上海金之塔信息技术有限公司 ( 沪ICP备13035422号 )

GMT+8, 2024-12-28 14:42 , Processed in 0.240971 second(s), 24 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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