Sending data to EXCEL from Oracle Forms 6.0 URGENT!!!!!

Question

Dear all,
I have a problem to which I hope to get a solution from anyone
out there...
The problem is as follows:
I have a form that contains some data. Now this data I need to
transfer to an excell sheet. I tried to do so through report
builder (6.0) but every time I try to convert my report I get a
general protection fault. So instead I'm sending the data to a
text file through text_io built in then reopening the text file
from excel. Isn't there a better way to do it? ie sending the
data stright from forms to excel?
Thanks in advance
null

Answer 1

TRY THIS OUT....OLE2.... IT WORKS GREAT...DIRECTLY TO EXCEL...
Oracle Corporate Support
Problem Repository
1. Prob# 1030046.6 NEW: OLE AUTOMATION NO LONGER WORKS AFTER
UPGRADE TO OF
2. Soln# 2077481.6 NEW: MICROSOFT CHANGED OLE INTERFACE FOR
OFFICE97
1. Prob# 1030046.6 NEW: OLE AUTOMATION NO LONGER WORKS AFTER
UPGRADE TO OF
Problem ID : 1030046.6
Affected Platforms : MS Windows 95
MS Windows NT
Affected Products : SQL*Forms
Oracle Reports
Oracle Graphics
Oracle Developer/2000
Affected Components : SF40 V04.05.XX
SQLREP V02.05.XX
ORAGRAPH V02.05.XX
DEV2K Generic
Affected Oracle Vsn : Generic
Summary:
NEW: OLE AUTOMATION NO LONGER WORKS AFTER UPGRADE TO OFFICE97
+=+
Problem Description:
====================
You have upgraded to Microsoft Office97 and OLE calls in your
Developer/2000
applications no longer work.
Problem Explanation:
====================
Examples:
You are using Forms to send data to a Microsoft Word document
and print
letters, using ole automation. This worked fine with Word 6.0,
but when
they
upgraded to Word 8.0 (Office97), the letters do not get printed.
When you try to get an object handle to the Excel97 Workbooks
collection
using
the OLE2 Package, you get the following error:
FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception
ORA-305500
The Same code works fine against Excel 7.0.
[ Search Words: Office 97 msoffice ms office object linking and
embedding
application get_obj_property workbook invoke_obj
appshow
upgrade upgrading bug483090 olex.rdf demo ]
+==+
Diagnostics and References:
2. Soln# 2077481.6 NEW: MICROSOFT CHANGED OLE INTERFACE FOR
OFFICE97
Solution ID : 2077481.6
For Problem : 1030046.6
Affected Platforms : MS Windows 95
MS Windows NT
Affected Products : SQL*Forms
Oracle Reports
Oracle Graphics
Oracle Developer/2000
Affected Components : SF40 V04.05.XX
SQLREP V02.05.XX
ORAGRAPH V02.05.XX
DEV2K Generic
Affected Oracle Vsn : Generic
Summary:
NEW: MICROSOFT CHANGED OLE INTERFACE FOR OFFICE97
+=+
Solution Description:
=====================
WORD:
Microsoft made some changes in the upgraded version of Word
which cause it
to
come up as a hidden application. Customer had to add "AppShow"
to his code,
and ole automation works fine now.
EXCEL:
The issue here is that Microsoft changed the object "Workbooks",
which is
now
a property of object "Excel.Application". So, replace the call:
workbooks := ole2.invoke_obj(application, 'workbooks');
with
workbooks := ole2.get_obj_property(application, 'workbooks');
For example:
PACKAGE BODY olewrap IS
-- Declare the OLE objects
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.LIST_TYPE;
procedure init is
begin
-- Start Excel and make it visible
application := OLE2.CREATE_OBJ('Excel.Application');
ole2.set_property(application,'Visible', 'True');
workbooks := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'c:\test\ms\excel\test.xls');
workbook := OLE2.GET_OBJ_PROPERTY(workbooks, 'Open', args);
OLE2.DESTROY_ARGLIST(args);
worksheets := OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet := OLE2.GET_OBJ_PROPERTY(worksheets,'Add');
-- Return object handle to cell A1 on the new Worksheet
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 1);
OLE2.ADD_ARG(args, 1);
cell:=OLE2.GET_OBJ_PROPERTY(worksheet, 'Cells', args);
OLE2.DESTROY_ARGLIST(args);
-- Set the contents of the cell to 'Hello Excel!'
OLE2.SET_PROPERTY(cell, 'Value', 'Hello Excel!');
END;
procedure addstuff is
BEGIN
-- Return object handle to cell A1 on the new Worksheet
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 2);
OLE2.ADD_ARG(args, 2);
cell:=OLE2.INVOKE_OBJ(worksheet, 'Cells', args);
OLE2.DESTROY_ARGLIST(args);
-- Set the contents of the cell to 'This is the added stuff'
OLE2.SET_PROPERTY(cell, 'Value', 'This is the added stuff');
END;
procedure stop is
begin
-- Release the OLE objects
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'C:\OLETEST2.XLS');
OLE2.INVOKE(worksheet, 'SaveAs', args);
OLE2.DESTROY_ARGLIST(args);
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;
Solution Explanation:
=====================
Microsoft changed some of the OLE calling interfaces for the
Office97
products. Thus, some of your existing OLE calls may need to be
changed to
comply with the Office97 interface.
Consult with Microsoft and your Office97 documentation or more
information
on
what the OLE interface is for the Office97 suite of products.
Additional Information:
=======================
Related Bugs:
483090 (Closed, Vendor OS Problem)
FORM GIVES FRM-40735: UNHANDLED EXCEPTION ORA-305500 AGAINST
EXCEL97.OFMPE0497
+==+
References:
ref: {8192.4} BUG-483090
Oracle Corporate Support
Problem Repository
1. Prob# 1030046.6 NEW: OLE AUTOMATION NO LONGER WORKS AFTER
UPGRADE TO OF
2. Soln# 2077481.6 NEW: MICROSOFT CHANGED OLE INTERFACE FOR
OFFICE97
1. Prob# 1030046.6 NEW: OLE AUTOMATION NO LONGER WORKS AFTER
UPGRADE TO OF
Problem ID : 1030046.6
Affected Platforms : MS Windows 95
MS Windows NT
Affected Products : SQL*Forms
Oracle Reports
Oracle Graphics
Oracle Developer/2000
Affected Components : SF40 V04.05.XX
SQLREP V02.05.XX
ORAGRAPH V02.05.XX
DEV2K Generic
Affected Oracle Vsn : Generic
Summary:
NEW: OLE AUTOMATION NO LONGER WORKS AFTER UPGRADE TO OFFICE97
+=+
Problem Description:
====================
You have upgraded to Microsoft Office97 and OLE calls in your
Developer/2000
applications no longer work.
Problem Explanation:
====================
Examples:
You are using Forms to send data to a Microsoft Word document
and print
letters, using ole automation. This worked fine with Word 6.0,
but when
they
upgraded to Word 8.0 (Office97), the letters do not get printed.
When you try to get an object handle to the Excel97 Workbooks
collection
using
the OLE2 Package, you get the following error:
FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception
ORA-305500
The Same code works fine against Excel 7.0.
[ Search Words: Office 97 msoffice ms office object linking and
embedding
application get_obj_property workbook invoke_obj
appshow
upgrade upgrading bug483090 olex.rdf demo ]
+==+
Diagnostics and References:
2. Soln# 2077481.6 NEW: MICROSOFT CHANGED OLE INTERFACE FOR
OFFICE97
Solution ID : 2077481.6
For Problem : 1030046.6
Affected Platforms : MS Windows 95
MS Windows NT
Affected Products : SQL*Forms
Oracle Reports
Oracle Graphics
Oracle Developer/2000
Affected Components : SF40 V04.05.XX
SQLREP V02.05.XX
ORAGRAPH V02.05.XX
DEV2K Generic
Affected Oracle Vsn : Generic
Summary:
NEW: MICROSOFT CHANGED OLE INTERFACE FOR OFFICE97
+=+
Solution Description:
=====================
WORD:
Microsoft made some changes in the upgraded version of Word
which cause it
to
come up as a hidden application. Customer had to add "AppShow"
to his code,
and ole automation works fine now.
EXCEL:
The issue here is that Microsoft changed the object "Workbooks",
which is
now
a property of object "Excel.Application". So, replace the call:
workbooks := ole2.invoke_obj(application, 'workbooks');
with
workbooks := ole2.get_obj_property(application, 'workbooks');
For example:
PACKAGE BODY olewrap IS
-- Declare the OLE objects
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.LIST_TYPE;
procedure init is
begin
-- Start Excel and make it visible
application := OLE2.CREATE_OBJ('Excel.Application');
ole2.set_property(application,'Visible', 'True');
workbooks := OLE2.GET_OBJ_PROPERTY(application, 'Workbooks');
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'c:\test\ms\excel\test.xls');
workbook := OLE2.GET_OBJ_PROPERTY(workbooks, 'Open', args);
OLE2.DESTROY_ARGLIST(args);
worksheets := OLE2.GET_OBJ_PROPERTY(workbook, 'Worksheets');
worksheet := OLE2.GET_OBJ_PROPERTY(worksheets,'Add');
-- Return object handle to cell A1 on the new Worksheet
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 1);
OLE2.ADD_ARG(args, 1);
cell:=OLE2.GET_OBJ_PROPERTY(worksheet, 'Cells', args);
OLE2.DESTROY_ARGLIST(args);
-- Set the contents of the cell to 'Hello Excel!'
OLE2.SET_PROPERTY(cell, 'Value', 'Hello Excel!');
END;
procedure addstuff is
BEGIN
-- Return object handle to cell A1 on the new Worksheet
args := OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 2);
OLE2.ADD_ARG(args, 2);
cell:=OLE2.INVOKE_OBJ(worksheet, 'Cells', args);
OLE2.DESTROY_ARGLIST(args);
-- Set the contents of the cell to 'This is the added stuff'
OLE2.SET_PROPERTY(cell, 'Value', 'This is the added stuff');
END;
procedure stop is
begin
-- Release the OLE objects
args:=OLE2.CREATE_ARGLIST;
OLE2.ADD_ARG(args, 'C:\OLETEST2.XLS');
OLE2.INVOKE(worksheet, 'SaveAs', args);
OLE2.DESTROY_ARGLIST(args);
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;
Solution Explanation:
=====================
Microsoft changed some of the OLE calling interfaces for the
Office97
products. Thus, some of your existing OLE calls may need to be
changed to
comply with the Office97 interface.
Consult with Microsoft and your Office97 documentation or more
information
on
what the OLE interface is for the Office97 suite of products.
Additional Information:
=======================
Related Bugs:
483090 (Closed, Vendor OS Problem)
FORM GIVES FRM-40735: UNHANDLED EXCEPTION ORA-305500 AGAINST
EXCEL97.OFMPE0497
+==+
References:
ref: {8192.4} BUG-483090
null