怎样自定excel.application的子类?
例如:
oExcel = CREATEOBJECT( 'xlApp' )
oExcel.workbooks.Open( 'D:\Documents\Visual FoxPro 项目\统计.xls' )
oExcel.Visible = .t.

DEFINE CLASS xlApp as 'excel.application'
PROCEDURE init
ENDPROC
ENDDEFINE

一执行就提示:
File 'solutionerrhandle.prg' does not exist.

如果把第一句改为：
oExcel = CREATEOBJECT( 'excel.application' )
则运行正常。
说明问题出在类定义。

于是又测试了在类定义取消父类两边的引号，改成：
DEFINE CLASS xlApp as excel.application
仍然出现同样的错误提示。


于是又干脆把父类改成VFP自带的Custom，如下：

oExcel = CREATEOBJECT( 'xlApp' )

DEFINE CLASS xlApp as Custom
PROCEDURE init
DODEFAULT()
ENDPROC
ENDDEFINE

运行正常。

那么剩下的就是：怎么定义excel.application的子类？



[解决办法]
代码一：

objXLsheet=CreateObject('Excel.Sheet')
objXLsheet.Application.Visible=.T.



代码二：

tmpsheet = GetObject('','Excel.Sheet')
XLApp = tmpsheet.Application
XLApp.Visible = .t.


[解决办法]
Excel 不是可插入控件，不能作为父类来继承并子类化