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.
Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.