Not able to write to Excel using Client_OLE2 and webutil

Question

Hi
I am working on Windows 2000 Pro SP4 Oracle Forms Builder 10.1.2.0.2
I am using webutil to invoke Excel Application .
The following code invokes Excel application and saves in the path specified as Test_Excel and writes the "Test Data to be written" to R1C1 when I use OLE2.
But when I replace OLE2 with Client_OLE2 the Excel file is getting created but the data is not written to the cell.
PL/SQL :could not find program unit being called is the error.
Can anybody help me solve this issue ?
Thanks in advance.
FUNCTION WRITE_TO_EXCEL(
excel_file_name in varchar2, ---for eg.. C:\Test_Excel.xls
buf in varchar2 ) ----Test Data to be written
return boolean is
application CLIENT_OLE2.OBJ_TYPE;
workbooks CLIENT_OLE2.OBJ_TYPE;
workbook CLIENT_OLE2.OBJ_TYPE;
worksheets CLIENT_OLE2.OBJ_TYPE;
worksheet CLIENT_OLE2.OBJ_TYPE;
cell CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;
begin
application := CLIENT_OLE2.CREATE_OBJ ('Excel.Application');
CLIENT_OLE2.SET_PROPERTY(application, 'Visible', 'True');
workbooks := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
workbook := CLIENT_OLE2.Invoke_Obj(workbooks, 'Add');
worksheets := CLIENT_OLE2.Get_Obj_Property(workbook, 'Worksheets');
worksheet := CLIENT_OLE2.Invoke_Obj(worksheets,'Add');
args:=CLIENT_OLE2.create_arglist;
CLIENT_OLE2.add_arg(args,1);
CLIENT_OLE2.add_arg(args,1);
cell:=CLIENT_OLE2.get_obj_property(worksheet, 'Cells', args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.set_property(cell,'Value', buf);
CLIENT_OLE2.release_obj(cell);
CLIENT_OLE2.Release_Obj(worksheet);
CLIENT_OLE2.Release_Obj(worksheets);
args := CLIENT_OLE2.Create_Arglist;
CLIENT_OLE2.Add_Arg(args,excel_file_name);
CLIENT_OLE2.Invoke(workbook, 'SaveAs', args);
CLIENT_OLE2.Destroy_Arglist(args);
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args,'Caption');
CLIENT_OLE2.INVOKE(application,'Run',args);
CLIENT_OLE2.destroy_arglist(args);
CLIENT_OLE2.Release_Obj(workbook);
CLIENT_OLE2.Release_Obj(workbooks);
CLIENT_OLE2.Invoke(application, 'Quit');
CLIENT_OLE2.Release_Obj(application);
return(TRUE);
exception
when others then
message (error_type||'-'||error_code||':'||error_text);
message (' ');
SET_APPLICATION_PROPERTY(CURSOR_STYLE,'default');
CLIENT_OLE2.RELEASE_OBJ(application);
CLIENT_OLE2.RELEASE_OBJ(workbooks);
CLIENT_OLE2.RELEASE_OBJ(workbook);
CLIENT_OLE2.release_obj(worksheet);
CLIENT_OLE2.release_obj(worksheets);
return(FALSE);
END;

Answer 1

What line is actually causing the error? Also, I assume you tested the exact same code which works when using straight OLE2 (and not the webutil client_ version)?
Regards
Grant Ronald
Oracle Product Management