تحياتي للجميع

tofeee

DECLARE
APPLICATION PLS_INTEGER;
WORKBOOKS PLS_INTEGER;
ARGS PLS_INTEGER;
WORKBOOK PLS_INTEGER;
WORKSHEETS PLS_INTEGER;
WORKSHEET PLS_INTEGER;
BEGIN APPLICATION:=CLIENT_OLE2.CREATE_OBJ('EXCEL.APPLICATION');
CLIENT_OLE2.SET_PROPERTY(APPLICATION,'VISIBLE',1);
WORKBOOKS:=CLEINT_OLE2.GET_OBJ_PROPERTY (APPLICATION,'WORKBOOKS');
ARGS:=CLIENT_OLE2.CREATE_ARGLIST;
CLIENTS_OLE2.ADD_ARG(ARGS,FILE);
WORKBOOK:=CLIENT_OLE2.GET_OGJ_PROPERTY (WOORKBOOKS,'OPEN',ARGS);
CLIENT_OLE2.DESTROY_ARGLIST(ARGS);
WORKSHEETS:=CLIENT_OLE2.GET_OBJ_PROPERTY (WORKBOOK,'WORKSHEETS');
WORKSHEET:=CLIENT_OLE2.GET_OBJ_PROPERTY(WORKSHEETS,'ADD');
END;

مشكور و جزاك الله الف خير

من تميز إلى تميز أخي

أخوك عادل

بعد الشكرالجزيل لك اخي المبدع عبداللطيف
لم يعمل معي الكود الذي وضعته , وأعتقد لانه طلب مني الباكيج CLIENT_OLE2 والتي لا أعرف
أين أجدها

وأكرر شكري الجزيل لك

أخى العزيز عبد اللطيف أين يكتب هذا الكود

شاكر للأخ عبد اللطيف
فقد عمل معي الكود
على الفورم وبالنسبة ل OLE فهي موجودة او ما يسمى بال ocx
مع التحية للجميع