OLE2 error.

Question

hi all
i want to import data from excel to form but it is showing me error frm-40735.please anyone can check my code?
i have 18 rows
and 14 cols
its in tabular form.
here is the code please check it where is the error?
PROCEDURE XLS IS
BEGIN
DECLARE
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.OBJ_TYPE;
ctr NUMBER(12);
cols NUMBER(2);
name_var1 VARCHAR2(2000);
name_var2 VARCHAR2(2000);
name_var3 VARCHAR2(2000);
name_var4 VARCHAR2(2000);
name_var5 varchar2(2000);
name_var6 varchar2(2000);
name_var7 varchar2(2000);
name_var8 varchar2(2000);
name_var9 varchar2(2000);
name_var10 varchar2(2000);
name_var11 varchar2(2000);
name_var12 varchar2(2000);
name_var13 varchar2(2000);
name_var14 varchar2(2000);
name_var15 varchar2(2000);
name_var16 varchar2(2000);
name_var17 varchar2(2000);
name_var18 varchar2(2000);
filename varchar2(100);
PROCEDURE OLEARG IS
args OLE2.OBJ_TYPE;
BEGIN
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,ctr); -- row value
ole2.add_arg(args,cols); -- column value
cell := ole2.GET_OBJ_PROPERTY(worksheet,'Cells',args); -- initializing cell
ole2.destroy_arglist(args);
END;
BEGIN
     CLEAR_BLOCK(NO_VALIDATE);
filename :='C:\TRAVEL EXECL FORMAT NEEDED.XLS';--GET_FILE_NAME('c:\', File_Filter=>'Excel Files (*.xls)|*.xls|'); -- to pick the file
application := OLE2.CREATE_OBJ('Excel.Application');
ole2.set_property(application,'Visible','FALSE');
workbooks := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,filename); --'c:\13s002.xls'); -- file path and name
workbook := ole2.GET_OBJ_PROPERTY(workbooks,'Open',args);
ole2.destroy_arglist(args);
args := OLE2.CREATE_ARGLIST;
ole2.add_arg(args,'Sheet1');
worksheet := ole2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);
ole2.destroy_arglist(args);
ctr := 2; --row number
cols := 1; -- column number
FIRST_RECORD;
LOOP
OLEARG;
--get_char_property FOR VARCHAR
--get_num_property FOR NUMBER
name_var1 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var2 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var3 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var4 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var6 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var7 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var8 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var9 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var10 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var12 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var13 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var14 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var16 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var17 := ole2.get_char_property(cell,'Value'); --cell value of the argument
cols := cols+1;
OLEARG;
name_var18 := ole2.get_char_property(cell,'Value'); --cell number value of the argument
EXIT WHEN name_var1 is null;--length(name_var1) = 0 or length(name_var1) is null;
IF ctr = 1 then
:policy_year:=name_var1;
:policy_no:=name_var2;
:Customer_name:=name_var3;
:passport_no:=name_var4;
:date_of_birth:=name_var5;
:age:=name_var6;
:address:=name_var7;
:mobile_no:=name_var8;
:issue_date:=name_var9;
:branch:=name_var10;
:agent_code:=name_var11;
:gross_premium :=name_var12;
:valid_from_date :=name_var13;
:valid_to_date :=name_var14;
:period :=name_var15;
:travel_origin:=name_var16; 
:pay_status :=name_var17;
:area :=name_var18;   
NULL;
ELSE
:policy_year:=name_var1;
:policy_no:=name_var2;
:Customer_name:=name_var3;
:passport_no:=name_var4;
:date_of_birth:=name_var5;
:age:=name_var6;
:address:=name_var7;
:mobile_no:=name_var8;
:issue_date:=name_var9;
:branch:=name_var10;
:agent_code:=name_var11;
:gross_premium :=name_var12;
:valid_from_date :=name_var13;
:valid_to_date :=name_var14;
:period :=name_var15;
:travel_origin:=name_var16; 
:pay_status :=name_var17;
:area :=name_var18;   
NEXT_RECORD;
END IF;
SYNCHRONIZE;
ctr := ctr + 1;
cols := 1;
END LOOP;
DELETE_RECORD;
FIRST_RECORD;
OLE2.INVOKE(application,'Quit');
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;
END;prompt answer will be greatly appreciated
thanks in advance.
sarah

Answer 1

HI
JOHN.
where should i make changes in excel or in form code?
can u guide me more?
i tried the code something like this but did not give me correct result.
here is the code.
PROCEDURE sarah IS
     application OLE2.OBJ_TYPE;
     workbooks OLE2.OBJ_TYPE;
     workbook OLE2.OBJ_TYPE;
     worksheets OLE2.OBJ_TYPE;
     worksheet OLE2.OBJ_TYPE;
     cell OLE2.OBJ_TYPE;
     cellType OLE2.OBJ_TYPE;
     args OLE2.OBJ_TYPE;
     ctr number := 1;
     cols number := 1;
  maxColumns number := 18;
     MyString VARCHAR2(2000) := 'null';
     MyNumber NUMBER;
     cell_value_date DATE;
     filename varchar2(2000);
     BEGIN
               go_block('hus');
               CLEAR_BLOCK(NO_VALIDATE);
               first_record;
               go_item('policy_year');
               filename :='C:\CHECK11.XLS';--GET_FILE_NAME('c:\', File_Filter=>'Excel Files (*.xls)|*.xls|'); -- to pick the file
               application := OLE2.CREATE_OBJ('Excel.Application');
               ole2.set_property(application,'Visible','FALSE');
               workbooks := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
               args := OLE2.CREATE_ARGLIST;
               ole2.add_arg(args,filename); --'c:\13s002.xls'); -- file path and name
               workbook := ole2.GET_OBJ_PROPERTY(workbooks,'Open',args);
               ole2.destroy_arglist(args);
               args := OLE2.CREATE_ARGLIST;
               ole2.add_arg(args,'Sheet1');
               worksheet := ole2.GET_OBJ_PROPERTY(workbook,'Worksheets',args);
               ole2.destroy_arglist(args);
     While (MyString is not null)
     loop
         args := OLE2.CREATE_ARGLIST;
               ole2.add_arg(args,ctr); -- row value
               ole2.add_arg(args,cols); -- column value
               cell := ole2.GET_OBJ_PROPERTY(worksheet,'Cells',args); -- initializing cell
               ole2.destroy_arglist(args);
               if cols in(1,4,6,8,10,11,12,15,17,18, /*for dates*/ 5, 9, 13, 14) then
                    MyString := ole2.get_num_property(cell,'Value'); --cell value of the argument                                    
               else
                    --MyString := ole2.get_char_property(cell,'Value'); --cell value of the argument
                    cell_value_date := to_date('01/01/1900', 'DD/MM/YYYY') + ole2.get_num_property(cell, 'Value') - 2;
               end if;
               --check the value of date format
        /*if cols in(5, 9, 13, 14) then
              copy(to_char(to_date(Mystring,'DDMMRRRR'),'DD-MON-RRRR'), :system.cursor_item);
        else */
               copy(MyString, :system.cursor_item);
       -- end if;
          cols := cols + 1;
          next_item;
          if cols >= maxColumns then
                ctr := ctr + 1;
                cols := 1;
                next_record;
                go_item('policy_year');
          end if;
     end loop;
--          DELETE_RECORD;
          FIRST_RECORD;
          OLE2.INVOKE(application,'Quit');
          OLE2.RELEASE_OBJ(cell);
          OLE2.RELEASE_OBJ(worksheet);
          OLE2.RELEASE_OBJ(workbook);
          OLE2.RELEASE_OBJ(application); 
     exception when others then
           message(sqlerrm);
END;sarah
sarah