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

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单元格数值）则开空

主题：请版主看看这段代码是否有误