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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请版主看看这段代码是否有误

   

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

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

主题：请版主看看这段代码是否有误
帅哥哟，离线，有人找我吗？
luobo
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：225 积分：0 威望：0 精华：0 注册：2014/3/12 11:47:50 		请版主看看这段代码是否有误  发帖心情 Post By：2015/6/17 22:09:12 [只看该作者]

1、功能描述：在excel中设置100--90，当前价格大于100.下单做多，当前价格小于90，下单做空

2、技术文档
//先在d:\ConditionBook.xls文件的Sheet1工作表中填入相关数值。A1为开多仓价格，A2为开空仓价格
//然后在金字塔中新建公式，将此公式复制过去并编译应用。

longprice:=0;                                               //开多仓的价格，预置为0，将被d:\ConditionBook.xls内A1单元格数值覆盖
shortprice:=0;                                              //开空仓的价格，预置为0，将被d:\ConditionBook.xls内A2单元格数值覆盖
<%
Set oExcel= CreateObject("Excel.Application")               '建立excel COM对象
Set oWb = oExcel.Workbooks.Open("d:\ConditionBook.xls")     '打开execl文件d:\ConditionBook.xls
Set oSheet = oWb.Sheets("Sheet1")                           '打开上述文件的Sheet1工作表
ffl.vardata("longprice")=oSheet.Range("A1").Value           'A1单元格存放的是开多仓价格，取出这个值并覆盖外部的longprice变量
ffl.vardata("shortprice")=oSheet.Range("A2").Value          'A2单元格存放的是开空仓价格，取出这个值并覆盖外部的shortprice变量
oExcel.Quit
%>
showLongPrice:longprice;
showShortPrice:shortprice;
TBUY(longprice>0 and high>longprice,1,MKT); //如果最新价格高于longprice（取自d:\ConditionBook.xls内A1单元格数值）则开多
TBUY(shortprice>0 and low<shortprice,1,MKT); //如果最新价格低于shortprice（取自d:\ConditionBook.xls内A2单元格数值）则开空
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

你的这个代码存在效率上的逻辑问题，因为行情每变动一个TICK就要调用公式一次，就会重复的打开和关闭EXCEL，毫无效率可言，机会没法用的。

建议你使用自定义函数的模式来做，将EXCEL的打开和初始化放到外部全局执行，启动时只执行一次，公式刷新计算时，自定义函数只负责读取表格内容即可。

逻辑代码如下：

 

'这些放到最外面，VBA启动时就会执行

Set oExcel= CreateObject("Excel.Application") '建立excel COM对象
Set oWb = oExcel.Workbooks.Open("d:\ConditionBook.xls") '打开execl文件d:\ConditionBook.xls
Set oSheet = oWb.Sheets("Sheet1") '打开上述文件的Sheet1工作表
 
Function mytest
 
'如果你需要处理多个变量，那么建议你使用内部的全局变量数据库
data1=oSheet.Range("A1").Value 'A1单元格存放的是开多仓价格，取出这个值并覆盖外部的longprice变量
data2=oSheet.Range("A2").Value 'A2单元格存放的是开空仓价格，取出这个值并覆盖外部的shortprice变量
 
document.SetExtData "data1",data1
document.SetExtData "data2",data2
 
End Fuction

 

在PEL中调用mytest后，然后通过EXTGBDATA函数取到设置好的数据即可。

 

相关参考资料

金字塔公式系统里使用自定义函数

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=158&replyID=&skin=1

 

金字塔VBA常用对象使用范例

http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11642

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

金字塔-技术部

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

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

Email:service@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.10547 秒, 5 次数据查询