| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- 请版主看看这段代码是否有误 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=79919) |
| -- 作者：luobo -- 发布时间：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单元格数值）则开空 |
| -- 作者：王锋 -- 发布时间：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 |