您所在位置：主题：自己常用的调用EXCEL对象方法
moz
[专家分：37620] 发布于 2008-02-02 17:48:00
PROCEDURE CheckExcel
IF TYPE("Excel.name")="U"
release Excel
public Excel
TRY
Excel=GETOBJECT(,"Excel.application")
CATCH
try
Excel=CREATEOBJECT("Excel.application")
catch
messagebox("创建EXCEL对象失败")
endtry
ENDTRY
ENDIF
ENDPROC
IF TYPE("Excel.name")="U"
release Excel
public Excel
TRY
Excel=GETOBJECT(,"Excel.application")
CATCH
try
Excel=CREATEOBJECT("Excel.application")
catch
messagebox("创建EXCEL对象失败")
endtry
ENDTRY
ENDIF
ENDPROC
