以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  怎么写VBA程序，实现数据接收模块里面的批量补数据功能，只要补充期货类数据就OK了  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=65797)
--  作者：chenjun25825
--  发布时间：2014/6/4 14:39:06
--  怎么写VBA程序，实现数据接收模块里面的批量补数据功能，只要补充期货类数据就OK了

Sub SJBC()
if application.ReceiveDataStatus=0 then application.ReceiveData(1)
Application.PeekAndPump
application.SendMessage(33882)
call application.Settimer(1,600000)
call application.Settimer(2,9000000)
Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindowA","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","FindWindowExA","i=llss","f=s", "r=l"
Wrap.Register "user32.dll","SendMessageA","i=lull","f=s", "r=l"
h = Wrap.FindWindowA("#32770","数据接收")
tab=Wrap.FindWindowExA(h,0,"SysTabControl32","")
TCM_SETCURFOCUS=4912
WM_SETFOCUS=7
WM_KEYDOWN=256
WM_KEYUP=257
BM_CLICK=245
Wrap.SendMessageA tab,TCM_SETCURFOCUS,2,0
h1=Wrap.FindWindowExA(h,0,"#32770","自定义补数据")
cb=Wrap.FindWindowExA(h1,0,"ComboBox","")
Wrap.SendMessageA cb,WM_SETFOCUS,0,0
Wrap.SendMessageA cb,WM_KEYDOWN,VK_DOWN,0
Wrap.SendMessageA cb,WM_KEYUP,VK_DOWN,0
bt=0
bt=Wrap.FindWindowExA(h1,0,"Button","开始补充")
Wrap.SendMessageA bt,BM_CLICK,0,0
if bt<>0 then todayhas=1
End Sub

 

这个代码好像是实现自定义的补数据功能，怎么实现批量补数据，只需要补充期货类数据就可以了
--  作者：chenjun25825
--  发布时间：2014/6/4 14:42:41
--  

我在自定义补充数据时候，，添加品种时，我选择所有的期货合约，当出现移仓时出现新的合约时，请问是否还需要手动添加新的合约进去，他才回自动补充新的合约数据
--  作者：王锋
--  发布时间：2014/6/4 17:54:19
--  

不需要了
--  作者：chenjun25825
--  发布时间：2014/6/5 10:49:32
--  
 能否在上述需求写个范例
--  作者：chenjun25825
--  发布时间：2014/6/5 10:54:03
--  
批量数据补充，只选择国内期货品种，补充日线，1分钟，和5分钟的数据，谢谢了
--  作者：chenjun25825
--  发布时间：2014/6/5 11:02:58
--  
另外我补数据的时候，补充当天的数据，收盘后什么时候系统的数据是全的啦，最好设置什么时候自动补充比较好
--  作者：王锋
--  发布时间：2014/6/5 11:18:40
--  

抱歉金字塔无法为您提供这种范例
--  作者：chenjun25825
--  发布时间：2014/6/5 11:21:05
--  

当日收盘后，补充最近1天的数据是否是补充当天的数据
--  作者：chenjun25825
--  发布时间：2014/6/5 11:21:26
--  
回答后面几个问题
--  作者：chenjun25825
--  发布时间：2014/6/5 16:30:26
--  
以下是引用王锋在2014/6/5 11:18:40的发言：

抱歉金字塔无法为您提供这种范例

当日收盘后什么补充最近1天的数据是不是今天的数据还是昨天的数据，当日收盘后当日数据什么时候可以补充