例如:
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 不是可插入控件，不能作为父类来继承并子类化