اخواتى الاعزاء
تم تنفيز كود التصدير الى اكسل و هوا شغال معايا كويس اوى على ال FORM BUILDER بس عندى مشكله كبيره
لما اشغل الفورمه على ال APPLICATION SERVER مش بيشتغل الكود ممكن حد يقولى ايه هيا المشكله
و يا ريت الحل بعد اذن الجميع

الكود

DECLARE
AppID PLS_INTEGER;
ConvID PLS_INTEGER;
RCount Number := 0;
CURSOR c1 IS select H_DATE,MAX_TEMP,MIN_TEMP,MAX_ST_10,MIN_ST_10,MAX_ST_40,MIN_ST_40,
MAX_RH,MIN_RH,AVG_SPEED,SUM_PREC 
from daly_data
where daly_data.ST_ID = :SEARCH.STATION
AND (H_DATE BETWEEN 	(:search.date_f) AND (:search.date_t))
ORDER BY H_DATE;
PROCEDURE INSERTROW (invalue VARCHAR2, incol NUMBER) IS
BEGIN
DDE.POKE(ConvID, 'R'||TO_CHAR(RCount)||'C'||TO_CHAR(incol), invalue, DDE.CF_TEXT, 1000);
END INSERTROW;
BEGIN
--:WORKSHEETPATH is a field on the form that contains the path and name of the Excel worksheet
--:EXCELFILEPATH is a field on the form that contains the name of the Excel.exe ex. c:\program files\microsoft office\office\excel.exe
-----------------WIN_API_UTILITY.DELETE_FILE('G:\worksheet\my excel.exe',False);
RCount := 1;
AppID := DDE.APP_BEGIN('C:\Program Files\Microsoft Office\Office12\EXCEL.EXE', DDE.APP_MODE_MAXIMIZED);
ConvID := DDE.INITIATE('EXCEL', 'system');
DDE.EXECUTE(ConvID, '[save.As("' || 'C:\stations\worksheet\daly\'||:SEARCH.STA_NAME||' from '||(TO_CHAR(:SEARCH.DATE_F,'DD-MM-YYYY'))||' to '||(TO_CHAR(:SEARCH.DATE_T,'DD-MM-YYYY'))||'.xls'|| '",1)]',10000);
ConvID := DDE.INITIATE('EXCEL', 'C:\stations\worksheet\daly\'||:SEARCH.STA_NAME||' from '||(TO_CHAR(:SEARCH.DATE_F,'DD-MM-YYYY'))||' to '||(TO_CHAR(:SEARCH.DATE_T,'DD-MM-YYYY'))||'.xls');
--Insert row for headings
INSERTROW('H_DATE', 1);
INSERTROW('MAX_TEMP', 2);
INSERTROW('MIN_TEMP', 3);
INSERTROW('MAX_ST_10', 4);
INSERTROW('MIN_ST_10', 5);
INSERTROW('MAX_ST_40', 6);
INSERTROW('MIN_ST_40', 7);
INSERTROW('MAX_RH', 8);
INSERTROW('MIN_RH', 9);
INSERTROW('AVG_SPEED', 10);
INSERTROW('SUM_PREC', 11);
FOR INV IN c1 LOOP
RCount := RCount + 1;
INSERTROW(NVL(TO_CHAR(INV.H_DATE,'dd/mm/yyyy'),' '), 1); --inserting a date. if null, return a space
INSERTROW(NVL(TO_CHAR(INV.MAX_TEMP),' '), 2); --if a numeric column, convert to text and if null, return a space
INSERTROW(NVL(TO_CHAR(INV.MIN_TEMP),' '), 3); --if text column, just check for null
INSERTROW(NVL(TO_CHAR(INV.MAX_ST_10),' '), 4);
INSERTROW(NVL(TO_CHAR(INV.MIN_ST_10),' '), 5);
INSERTROW(NVL(TO_CHAR(INV.MAX_ST_40),' '), 6);
INSERTROW(NVL(TO_CHAR(INV.MIN_ST_40),' '), 7);
INSERTROW(NVL(TO_CHAR(INV.MAX_RH),' '), 8);
INSERTROW(NVL(TO_CHAR(INV.MIN_RH),' '), 9);
INSERTROW(NVL(TO_CHAR(INV.AVG_SPEED),' '), 10);
INSERTROW(NVL(TO_CHAR(INV.SUM_PREC),' '), 11);
END LOOP;
DDE.Terminate(ConvID);
EXCEPTION
WHEN DDE.DDE_APP_FAILURE THEN
MESSAGE('Could not start EXCEL (' || 'C:\Program Files\Microsoft Office\Office12\EXCEL.EXE' || ').');
WHEN DDE.DDE_INIT_FAILED THEN
MESSAGE('Could not initialize conversation with ' || 'C:\stations\worksheet\daly\'||:SEARCH.STA_NAME||' from '||(TO_CHAR(:SEARCH.DATE_F,'DD-MM-YYYY'))||' to '||(TO_CHAR(:SEARCH.DATE_T,'DD-MM-YYYY'))||'.xls');
WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
MESSAGE('Could not initialize conversation with ' || 'C:\stations\worksheet\daly\'||:SEARCH.STA_NAME||' from '||(TO_CHAR(:SEARCH.DATE_F,'DD-MM-YYYY'))||' to '||(TO_CHAR(:SEARCH.DATE_T,'DD-MM-YYYY'))||'.xls');
WHEN DDE.DMLERR_SYS_ERROR THEN
MESSAGE('An internal error has occurred.');
WHEN OTHERS THEN
MESSAGE(TO_CHAR(MESSAGE_CODE) || ' ' || MESSAGE_TEXT || TO_CHAR(ERROR_CODE) || ' ' || ERROR_TEXT);
END; 

ايه يا جماعه الموضوع صعب اوى كده ولا ايه
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

موضوع مهم ،ان شاء الله احد يفيدك

بالتوفيق ان شاء الله

مرحبا
ممكن ما يكون عندك صلاحية على الـ folder اللي موجود على السيرفر
user permissions

حاول تجرب الكود بطريقة ال client_ole2 سوف تحتاج الى اعداد ال webutil على ال application server
هذا رابط لل client_ole2 من على اوراكل
http://www.oracle.com/technology/products/forms/htdocs/webutil/howto_ole.html
ومرفق فورم كنت قد صممتها من قبل ولكن لا اتذكر هلى هى على hr - scott schema
يمكنك تجربتها
export to excel.rar

انا جربت client_ole2 فى الكود بس للاسف مش اشتغل هو كمان الموضوع دا هيجنينى بس انا مش عارف ازاى اعمل الاعدادات بتاعت الwebutil على ال application server
يا ريت بعد ازن الجميع المساعده فى اقرب فرصه و اكون شاكر افضالكم

اخى الفاضل bad_sector007 ممكن تشرح لى كيفية اعدادت ال webutil على ال application server