DECLARE -- DECLARE THE OLE OBJECTS 
APPLICATION     OLE2.OBJ_TYPE; 
WORKBOOKS 	OLE2.OBJ_TYPE; 
WORKBOOK 	OLE2.OBJ_TYPE; 
WORKSHEETS 	OLE2.OBJ_TYPE; 
WORKSHEET 	OLE2.OBJ_TYPE; 
CELL 		OLE2.OBJ_TYPE;
ARGS 		OLE2.LIST_TYPE;


-- DECLARE HANDLES TO OLE ARGUMENT LISTS ARGS OLE2.LIST_TYPE; 
BEGIN 
-- START EXCEL AND MAKE IT VISIBLE 
APPLICATION:=OLE2.CREATE_OBJ('EXCEL.APPLICATION'); 
OLE2.SET_PROPERTY(APPLICATION, 'VISIBLE', 'TRUE');

-- RETURN OBJECT HANDLE TO THE WORKBOOKS COLLECTION 
WORKBOOKS:=OLE2.GET_OBJ_PROPERTY(APPLICATION, 'WORKBOOKS'); 

-- ADD A NEW WORKBOOK OBJECT TO THE WORKBOOKS COLLECTION 
WORKBOOK:=OLE2.INVOKE_OBJ(WORKBOOKS,'ADD'); 

-- RETURN OBJECT HANDLE TO THE WORKSHEETS COLLECTION FOR THE WORKBOOK 
WORKSHEETS:=OLE2.GET_OBJ_PROPERTY(APPLICATION, 'WORKSHEETS'); 

-- ADD A NEW WORKSHEET TO THE WORKSHEETS COLLECTION 
WORKSHEET:=OLE2.INVOKE_OBJ(WORKSHEETS,'ADD'); 

-- RETURN OBJECT HANDLE TO CELL A1 ON THE NEW WORKSHEET 
ARGS:=OLE2.CREATE_ARGLIST; 
OLE2.ADD_ARG(ARGS, 1); OLE2.ADD_ARG(ARGS, 1); 
CELL:=OLE2.INVOKE_OBJ(WORKSHEETS, 'CELLS', ARGS); 
OLE2.DESTROY_ARGLIST(ARGS); 

-- SET THE CONTENTS OF THE CELL TO 'HELLO EXCEL!' 

OLE2.SET_PROPERTY(CELL, 'VALUE', 'HELLO EXCEL!'); 

--RELEASE THE OLE OBJECTS 
OLE2.RELEASE_OBJ(CELL); 
OLE2.RELEASE_OBJ(WORKSHEET); 
OLE2.RELEASE_OBJ(WORKSHEETS); 
OLE2.RELEASE_OBJ(WORKBOOK); 
OLE2.RELEASE_OBJ(WORKBOOKS); 
OLE2.RELEASE_OBJ(APPLICATION);

END;