مرحبا
هذا المثال شغال 100% لطريقة قراءة ملف اكسيل من خلال Oracle Forms.
EX1.xls
READ_EXCEL.rar

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); 
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:\EX1.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 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 
:A:=name_var1;
:B:=name_var2;
:C:=name_var3;
:=name_var4; 
NULL;
ELSE 
:A:=name_var1;
:B:=name_var2;
:C:=name_var3;
:=name_var4;
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;

مشكور يالحبيب

بس كان عندي مشكله أول ما أفتح الفورم تظهر رساله تقول:
PDE-PEP006 Encoded Program unit has an unkown format
مع العلم أني أستخدم developer6i
فما هو ال developer المناسب وما الحل؟

ودمتم سالمين

شكرا لك على المشاركه وكل عام وانتم بخير

10g

شكرا

جرب الكود ’ اشتغل , ولكن في حال كانت البيانات أرقام في إكسل يأخذ خانة واحدة من الرقم , اذا كانت الخلية تحتوي على الرقم 95 مثلا , تصبح 9 وهكذا
الرجاء المساعدة وشكرا