كود Expot & Import

كود expot & import
هذا الكود على الفورم يعمل كود expot & import
على الاكسيل والمفروض انه يكون على زرار على الفورم لايعمل لماذا ممكن حد يجربه معى على الفورم وبيعتها لو اشتغلت

PROCEDURE get_from_xls IS
 
 CONVID PLS_INTEGER;
 APPID  PLS_INTEGER;
 i number;
 x number;
 v_name VARCHAR2(100);
 v_BRN   varchar2(10);
 v_NO   varchar2(10);
 
 OUT_FILR  TEXT_IO.FILE_TYPE;
BEGIN synchronize;
--   Appid := dde.app_begin('C:\Program Files\Microsoft Office\Office\excel.exe C:\ora_xls\creadit.xls',dde.app_mode_minimized);
  Appid := dde.app_begin('C:\Program Files\Microsoft Office\Office\excel.exe C:\oracle_excel\EMP_ALL.xls',dde.app_mode_minimized);

	dde.app_focus(appid);
	convid := dde.initiate('EXCEL',:BLOCK2.SHEET_NAME);

 x := 0;
 
   FOR I IN 2..100000 loop
 	
 	dde.request(convid,'R' || to_char(i) ||'C1',v_brn,dde.cf_text,100000);
 	dde.request(convid,'R' || to_char(i) ||'C2',v_no,dde.cf_text,100000);
 	dde.request(convid,'R' || to_char(i) ||'C3',v_name,dde.cf_text,100000);
      
   if substr(v_NAME,1,length(v_NAME)-2) is null then exit;
   end if;
  
insert into employee( NO                              ,
AR_NAME                         ,
CTY_NO                          ,
CTY_CTRY_NO                     ,
CTY_NO_RES                      ,
CTY_CTRY_NO_RES                 ,
CTRY_NO                         ,
DEPT_BRN_NO                     ,
DEPT_NO                         ,
EN_NAME                         ,
DOB                             ,
MARITAL_STATUS                  ,
EDUCATIONAL_STATUS              ,
SEX                             ,
APPOINTMENT_DATE                ,
IS_EMPLOYEE                     ,
BASIC_SAL                       ,
HAVE_SALES_ALL                  ,
OLD_VACATIONS_BAL               ,
VACATIONS_BAL                   ,
RES_NO                          ,
RES_DATE                        ,
RES_END_DATE                    ,
CONTRACT_END_DATE               ,
JT_NO)
VALUES(
 TO_NUMBER(substr(v_NO,1,length(v_NO)-2)),
 substr(v_NAME,1,length(v_NAME)-2),
 1,
 1,
 1,
 1,
 1,
 TO_NUMBER(substr(v_BRN,1,length(v_BRN)-2)),
 1,
 'NA',
 SYSDATE,
 1,
 1,
 1,
 SYSDATE,
 1,
 0,
 1,
 0,
 0,
 1,
 SYSDATE,
 SYSDATE,
 SYSDATE,
 1);
 
   x:= x + 1;    
 end loop;
COMMIT;
	dde.terminate(convid);
	dde.app_end(appid);
 END;

----------------