欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件高级功能研发区 → 金字塔的策略接触VBS 需要入门导入的一段VBS代码 就是 如何以一秒一次的频率记录一个数据的当期值

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


  共有5914人关注过本帖树形打印复制链接

主题:金字塔的策略接触VBS 需要入门导入的一段VBS代码 就是 如何以一秒一次的频率记录一个数据的当期值

帅哥哟,离线,有人找我吗?
厚德载物生
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/10 13:26:50 [显示全部帖子]

求大神  把代码写出来 吧 目前我真的是入门级 需要 各位老师 引导  十分感谢 诚意满满 十分感谢 诚意满满


 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/10 13:27:46 [显示全部帖子]

求大神  把代码写出来 吧 目前我真的是入门级 需要 各位老师 引导  十分感谢 诚意满满 十分感谢 诚意满满

 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/10 13:28:51 [显示全部帖子]

做程序化的 真心不容易 急需要解决这个问题 请各位老师 赐一段代码 十分感谢

 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/10 13:38:24 [显示全部帖子]

十分渴求这段代码 求帮助 求帮助

 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/10 15:09:18 [显示全部帖子]

请各位高手 一定出手相帮 十分感谢

 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/11 12:59:07 [显示全部帖子]

现在已经在VBS入门了,但是 reportdata 只能抓取 最新行情 ,假设我要即时 抓取一个自定义数据 怎么解决 ,请大神们  管理员 回复  谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/12 13:21:05 [显示全部帖子]




Set objExcel = CreateObject("Excel.Application")

Dim cnt

Sub APPLICATION_VBAStart()  

 objExcel.Visible = True  

 objExcel.Workbooks.Add  

 cnt =0

 '设置一个定时器,每隔1s触发一次  

 call Application.SetTimer(1,1*1000)  

End Sub



'相应的定时器事件

Sub APPLICATION_Timer(ID)

 cnt = cnt +1 

 Set Formula = marketdata.STKINDI("IF11", "ZJ","111.ABC",0, 12)  

 objExcel.Cells(cnt,1).Value =Formula.GetBufDateData(cnt)  
 objExcel.Cells(cnt,2).Value =Formula.GetBufData("ABC",cnt)   

End Sub


各位大神 ,目前只推进到这个程度,如果我想在盘中时时从excel表格里调取ABC,并定义成aa,应该如何继续深化?且能在交易时段正常使用

 回到顶部
帅哥哟,离线,有人找我吗?
厚德载物生
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:论坛游侠 帖子:107 积分:0 威望:0 精华:0 注册:2014/11/10 9:11:27
  发帖心情 Post By:2014/11/12 13:41:58 [显示全部帖子]

请 大神们 一定支持一下 十分感谢 

 回到顶部