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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]请问下VBA的order对象需要专业版才能使用，那意思是免费版无法通过VBA来做程序化交易？

   

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

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

主题：[求助]请问下VBA的order对象需要专业版才能使用，那意思是免费版无法通过VBA来做程序化交易？
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		[求助]请问下VBA的order对象需要专业版才能使用，那意思是免费版无法通过VBA来做程序化交易？  发帖心情 Post By：2016/12/19 14:58:27 [只看该作者]

如题

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2016/12/19 15:17:40 [只看该作者]

无法用VBA实现直接下单操作，可以间接做一些辅助的二次开发工作


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/19 15:18:19 [只看该作者]

即便模拟账号也无法交易？

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2016/12/19 15:26:59 [只看该作者]

模拟可以的


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/19 15:33:03 [只看该作者]

但我用模拟账号，调用order对象，什么反应都没有，请问是什么原因？

 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/12/19 16:47:07 [只看该作者]

具体看下你怎么使用的，代码贴下呢
 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/19 16:53:18 [只看该作者]

下面这代码，开仓条件应该是恒成立的，但运行后什么反应都没

Sub TLStart()
  call marketdata.RegReportNotify("IC00","ZJ")
  call marketdata.RegReportNotify("IF00","ZJ")
End Sub

Sub MARKETDATA_ReportNotify()
  Set Report1 = marketdata.GetReportData("IC00","ZJ")
  Set Report2 = marketdata.GetReportData("IF00","ZJ")
  msgbox Report1.SellPrice1
  msgbox Report2.BuyPrice1
  dim BuyHoding1
  dim BuyHlding2
  dim BuyTodayHoding1
  dim BuyTodayHoding2
  dim SellHoding1
  dim SellHoding2
  dim SellTodayHoding1
  dim SellTodayHoding2
  dim BuyCost
  dim SellCost
  dim PNL
  Dim UseMargin
  call Order.HoldingInfoByCode2("IC00","ZJ",BuyHoding1,BuyCost,BuyTodayHoding1,SellHoding1,SellCost,SellTodayHoding1,PNL,UseMargin)
  call Order.HoldingInfoByCode2("IF00","ZJ",BuyHoding2,BuyCost,BuyTodayHoding2,SellHoding2,SellCost,SellTodayHoding2,PNL,UseMargin)
 

  Diff = Report1.SellPrice1 - Report2.BuyPrice1 '分别取卖价和买价计算差价 
  if Diff > 2800 and BuyHoding1 = 0 then
  call Order.Buy(0,1,Report1.SellPrice1,0,"IC00","ZJ","",0)
  call Order.BuyShort(0,1,Report2.BuyPrice1,0,"IF00","ZJ","",0)
  end if

  Diff = Report1.BuyPrice1 - Report2.SellPrice1
  if diff < 2800 and BuyHoding1 > 0 then
  call Order.Sell(0,1,Report1.BuyPrice1,0,"IC00","ZJ","",0)
  call Order.Sellshort(0,1,Report2.SellPrice1,0,"IF00","ZJ","",0)
  end if
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
yukizzc
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30 		  发帖心情 Post By：2016/12/19 17:01:16 [只看该作者]

Diff = Report1.BuyPrice1 - Report2.SellPrice1
application.msgout diff
  if diff < 2800 and BuyHoding1 > 0 then
  call Order.Sell(0,1,Report1.BuyPrice1,0,"IC00","ZJ","",0)
  call Order.Sellshort(0,1,Report2.SellPrice1,0,"IF00","ZJ","",0)
  end if
 
另一个贴中回复您了，类似这样自己做下调试输出，看下是不是条件不满足
 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/20 9:37:00 [只看该作者]

按您说的application.msgout diff，我执行TLStart后什么东西都没出来。

 回到顶部
帅哥哟，离线，有人找我吗？
michaelyjy
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 ateam
等级：论坛游侠 帖子：414 积分：0 威望：0 精华：0 注册：2016/12/8 10:33:23 		  发帖心情 Post By：2016/12/20 9:40:47 [只看该作者]

原因好像是TLStart并没有触发MARKETDATA_ReportNotify

 回到顶部
总数 19 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.10938 秒, 5 次数据查询