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

你的这个代码存在效率上的逻辑问题，因为行情每变动一个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函数取到设置好的数据即可。

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