OraFAQ Forum: Forms » CLIENT_OLE2.CREATE_OBJ('Excel.Application') not working (merged 3)

Home » Developer & Programmer » Forms » CLIENT_OLE2.CREATE_OBJ('Excel.Application') not working (merged 3) (windows 7 utimate)

Show: Today's Messages :: Polls :: Message Navigator
E-mail to friend

CLIENT_OLE2.CREATE_OBJ('Excel.Application') not working (merged 3) [message #552959]

Mon, 30 April 2012 08:43

kh_oracle_faqs
Messages: 2
Registered: April 2012
Location: yemen

Junior Member

##########################################################################################
PROCEDURE CREATE_EXCEL(TEMP NUMBER) IS
v_alert NUMBER;
v_return BOOLEAN;
v_message DUS.ALERT_MSG.MESSAGE%TYPE:= 'Error occured';
v_title DUS.ALERT_MSG.TITLE%TYPE:='Error';
application CLIENT_OLE2.OBJ_TYPE;
workbooks CLIENT_OLE2.OBJ_TYPE;
workbook CLIENT_OLE2.OBJ_TYPE;
worksheets CLIENT_OLE2.OBJ_TYPE;
worksheet CLIENT_OLE2.OBJ_TYPE;
cell CLIENT_OLE2.OBJ_TYPE;
args CLIENT_OLE2.LIST_TYPE;

BEGIN

pause;
application := CLIENT_OLE2.CREATE_OBJ('Excel.Application');
pause;

CLIENT_OLE2.SET_PROPERTY(application, 'Visible', 'false');

workbooks := CLIENT_OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
workbook := CLIENT_OLE2.GET_OBJ_PROPERTY(workbooks , 'Add');
worksheets := CLIENT_OLE2.GET_OBJ_PROPERTY(workbook , 'Worksheets');
worksheet := CLIENT_OLE2.GET_OBJ_PROPERTY(worksheets , 'Add');

args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 1);
CLIENT_OLE2.ADD_ARG(args, 11);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(worksheet, 'Cells', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value', to_char(SYSDATE, 'MM/DD/YYYY'));
CLIENT_OLE2.RELEASE_OBJ(cell);

args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, 8);
CLIENT_OLE2.ADD_ARG(args, 1);
cell := CLIENT_OLE2.GET_OBJ_PROPERTY(worksheet, 'Cells', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.SET_PROPERTY(cell, 'Value', 'Month - Year');
CLIENT_OLE2.RELEASE_OBJ(cell);

--
-- Saving Document
--
args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.ADD_ARG(args, :print_mh.file_path);
CLIENT_OLE2.INVOKE(workbook, 'SaveAs', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);

args := CLIENT_OLE2.CREATE_ARGLIST;
CLIENT_OLE2.INVOKE(workbook, 'Close', args);
CLIENT_OLE2.DESTROY_ARGLIST(args);
CLIENT_OLE2.INVOKE(application, 'Quit');

CLIENT_OLE2.RELEASE_OBJ(worksheet);
CLIENT_OLE2.RELEASE_OBJ(worksheets);
CLIENT_OLE2.RELEASE_OBJ(workbook);
CLIENT_OLE2.RELEASE_OBJ(workbooks);
CLIENT_OLE2.RELEASE_OBJ(application);

EXCEPTION WHEN OTHERS THEN
SET_ALERT_PROPERTY ('OK', ALERT_MESSAGE_TEXT,'error: '||sqlerrm||' '||sqlcode);
SET_ALERT_PROPERTY ('OK', TITLE, 'ERROR');
v_ALERT := SHOW_ALERT('OK');
END;
##########################################################################################
#The above code is workorking successfully on Some Clients PC's,But It is not workorking on some other Clients PC's,Such that
The first pause works fine but i couldn't get to the second pause.
All clients connected to the same Database server and application server but some clients can import excel files and some
other clients can't import excel files.All clients have the same version of java and microsoft excel.
#The envoronment is oracle Fusion Middleware 11g (Version 11.1.1.3.0).Oracle Form ,Report ,Portal and Discoverer
Can anyone help me out.

[Updated on: Mon, 30 April 2012 09:19]

Report message to a moderator