Opening an .xls file and writing data to it....

Question

Hi ,
I have written the following simple routine... which is supposed to open a .xls file and some data are written...:
DECLARE
application ole2.obj_type;
workbooks ole2.obj_type;
workbook ole2.obj_type;
worksheet ole2.obj_type;
worksheets ole2.obj_type;
cell ole2.obj_type;
--Declare handles to OLE argument lists
args ole2.list_type;
BEGIN
application:=OLE2.CREATE_OBJ('Excel.Application');
OLE2.Set_Property(application,'Visible', 'True');
workbooks := ole2.get_obj_property(application, 'Workbooks');
workbook:=OLE2.INVOKE_OBJ(workbooks,'Add');
args:= ole2.create_arglist;
ole2.add_arg(args, 'c:\example.XLS');
workbook := ole2.invoke_obj(workbook, 'Open', args);
ole2.destroy_arglist(args);
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 1); 
OLE2.ADD_ARG(args, 1);
cell:=OLE2.Invoke_Obj(workbooks, 'Cells', args); 
OLE2.DESTROY_ARGLIST(args);
OLE2.Set_Property(cell, 'Value', 'Excel');
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 0);
OLE2.INVOKE(workbook, 'Close', args);
OLE2.DESTROY_ARGLIST(args);
OLE2.RELEASE_OBJ(cell);
OLE2.RELEASE_OBJ(workbook);
OLE2.RELEASE_OBJ(workbooks);
OLE2.RELEASE_OBJ(application);
OLE2.INVOKE(application,'Quit');
END; but it does nothing.... it simply opens the Excel application..... How should I modify the routine in order to open the example.xls file and write some data to it .....???????
Many thanks,
Simon

Answer 1

OK... I SOLVED THE PROBLEM.....
Regards,
Simon