WUO-709: Unable to get Property: Open == Forms application using Webutil

Question

Hi everyone,
I have configured Webutil and tested a demo application for loading excel data into a forms application. The application works just fine. Here is the code:
DECLARE
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;
filename                varchar2(2000);
cell Client_OLE2.OBJ_TYPE;
args Client_OLE2.OBJ_TYPE;
cell_value varchar2(100);
eod boolean:=false;
j integer:=1;
BEGIN
     -- The following set up communication with the excel spreadsheet
application := Client_OLE2.create_obj('Excel.Application');
Client_OLE2.set_property(application,'Visible','false');
workbooks := Client_OLE2.Get_Obj_Property(application, 'Workbooks');
args := Client_OLE2.CREATE_ARGLIST;
Client_OLE2.add_arg(args, 'c:\test\test.xls');
workbook := Client_OLE2.GET_OBJ_PROPERTY(workbooks,'Open',args);
Client_OLE2.destroy_arglist(args);
worksheets := Client_OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet := Client_OLE2.GET_OBJ_PROPERTY(application,'activesheet');
--Go to the first record
go_block('planets');
first_record;
loop
          If :system.record_status <> 'NEW' then
create_record;
          end if;
exit when eod;
     for k in 1..3 loop --3 fields per record
     args:= Client_OLE2.create_arglist;
Client_OLE2.add_arg(args, j);
Client_OLE2.add_arg(args, k);
cell:= Client_OLE2.get_obj_property(worksheet, 'Cells', args);
Client_OLE2.destroy_arglist(args);
cell_value :=Client_OLE2.get_char_property(cell, 'Value');
if upper(cell_value) = 'EOD' then
     eod:=true;
     Message('End of Data');
     exit;
end if;
--Could be done this way also ->
/*if k =1 then
     :dept.deptno:=cell_value;
end if;
if k =2 then
     :dept.dname:=cell_value;
end if;
if k =3 then
     :dept.loc:=cell_value;
end if;
--Less code this way ->
copy(cell_value,name_in('system.cursor_item'));
next_item;
     end loop; --for
     j:=j+1;
end loop;--main loop
-- Release the Client_OLE2 object handles
Client_OLE2.release_obj(cell);
Client_OLE2.release_obj(worksheet);
Client_OLE2.release_obj(worksheets);
Client_OLE2.release_obj(workbook);
Client_OLE2.release_obj(workbooks);
Client_OLE2.invoke(application,'Quit');
Client_OLE2.release_obj(application);
END;
-- cell_value :=Client_OLE2.get_num_property(cell, 'Value');
The issue comes when I try to supply filename and path (here, c:\test\test.xls) through a file open dialog. I tried each of these:
1.
filename := client_get_file_name
(directory_name => 'C:\'
,file_name => 'test'|| '.xls'
,file_filter => 'Excel (*.xls)|*.xls|'
,message => 'Select client side filename where App Server file will be saved'
,dialog_type => OPEN_FILE
,select_file => TRUE
2.
filename := Client_Get_File_Name(directory_name => 'C:\'
,file_name => null
,file_filter => null
,message => null
,dialog_type => null
,select_file => null
3.
filename := client_get_file_name ('','','','Select a file to Upload ',null,TRUE);
On using the above, I DO get a file open box. However, after browsing and selecting a file, I am getting the error message:
WUO-709 [OleFunctions.get_obj_property_args()] Unable to get Property: Open; Exception com.jacob.com.ComFailException: Can't map name to dispid: Open
I have checked the documentation on 'WUO-709' but cannot seem to figure out why it's not working.
Sorry for the lengthy description. Would greatly appreciate help on this.
- Amit

Answer 1

I forgot to mention that in the modified code, I am supplying 'filename' as:
filename := client_get_file_name ('','','','Select a file to Upload ',null,TRUE);
args := Client_OLE2.CREATE_ARGLIST;
Client_OLE2.add_arg(args, filename);
Thanks,
Amit