Excel

Código em 4gl para identificar a versão do excel:

DEF VAR chExcelApplication AS COM-HANDLE NO-UNDO.
CREATE "Excel.Application" chExcelApplication.
IF chExcelApplication:version < "12.0" THEN
MESSAGE "Office XP ou anterior." VIEW-AS ALERT-BOX INFO BUTTONS OK.
ELSE
MESSAGE "Office 2007 ou posterior." VIEW-AS ALERT-BOX INFO BUTTONS OK.

RELEASE OBJECT chExcelApplication.