vfp怎么执行excel里的一个数组公式？

[不假思索]

例如数组公式
{=MIN( IF( a1:a10 = 5, Row( a1:a10)))}

Excel里我们用Ctrl + Shift + Enter输入数组公式。

vfp里怎么直接调用这个公式能？假设不准备把这个公式填到一个具体的单元格中。
试过下面的代码直接Evaluate不行。

Local oExcel
oExcel=Createobject("Excel.Application")
oExcel.WorkBooks.Open(“abc.xls")
oExcel.Activesheet.Evaluate( "{=MIN( IF( a1:a10 = 5, Row( a1:a10)))}" )

[WWWWA]

提示什么
try:
oExcel.activesheet.range("A1").value=
application.evaluate("{MIN( IF( a1:a10 = 5, Row( a1:a10)))}")
or
a = oExcel.Activesheet.Evaluate( "{=MIN( IF( a1:a10 = 5, Row( a1:a10)))}" )

[不假思索]

提示：Data type mismatch. 按后一种方法写的。

[WWWWA]

如果可以的话， 上传你的xls、 prg到www.access911.net/csdn ，用WINRAR压缩

[不假思索]

谢谢WWWWA， http://access911.net/csdn/FileDescription.asp?mdb=2013-10-23&id=35 这段代码的目的是从类别这一列，提取每类的起始行号，和终止行号。

[不假思索]

房地产业两边的单引号要改成双引号，如下。但结果一样。 似乎是evalaute不接受后面的字符串。

oExcel = CREATEOBJECT( 'excel.application')
oExcel.WorkBooks.Open( 'D:\Documents\Visual FoxPro 项目\测试\分类.xls')
oSheet = oExcel.ActiveSheet
lcString = "{=MAX( if( l2:l387 = " + ["房地产业"] + " , row( l2:l387)))}"
nResult = oSheet.Evaluate( lcString )

[WWWWA]

测试了一下，确实如此

[不假思索]

原来是多了{}括号! 经过反复测试，发现{}括号是不需要的，原来错在这儿。去掉{}之后一切都可以了。 谢谢WWWWA热心相助！ 多谢了！