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

1楼

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

2楼

王锋发表于：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函数取到设置好的数据即可。