Upload the data from excel sheet to form 6i

Question

hi all,
i am using Forms [32 Bit] Version 6.0.8.24.1 (Production)
my requirement is to import data from excel to forms.
i have gone through the help, they have mentioned as below
To build this demo:
1     Create a spreadsheet containing the initial data and formulae that you want to appear in your form.
2     In the Layout Editor, click the OLE container tool and drag out the area where you want to display the spreadsheet.
3     From the pop-up menu on the OLE container, click Insert Object. 
4     Click Create from File.  Enter the name of the spreadsheet.  Click OK.
5     In the Object Navigator, attach the library EXCEL.PLL.
6     To get the value of a cell, call the function GETCELL from the SPREADSHEET package contained in the EXCEL library.
To get the value of a cell, call the procedure SETCELL from the same package.
7     To add other interactions with the spreadsheet, use the OLE2 built-in package.  Consult the Excel documentation
for details of Excel’s object model.but if anybody explain this with sample then it will be useful for me..This is first time i am comming such type of requirement across.
Thanks..

Answer 1

hi,
i have some sample code(taken from some source)
DECLARE
application ole2.obj_type;
workbooks ole2.obj_type;
workbook ole2.obj_type;
args ole2.list_type;
worksheets OLE2.OBJ_TYPE;
worksheet OLE2.OBJ_TYPE;
BEGIN
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, 'FILE_NAME');
workbook:= ole2.invoke_obj(workbooks, 'Open',args);
ole2.destroy_arglist(args);
args:=ole2.create_arglist;
ole2.add_arg(args, 'c:\Pasta1!teste'); --how to pass the arguments
ole2.invoke(application, 'Run', args);
ole2.destroy_arglist(args);
ole2.release_obj(workbook);
ole2.release_obj(workbooks);
ole2.release_obj(application);
END; but i don't know how to pass the arguments(i have to pass the excell cell values(data)as an arguments)
Suggest me to proceed further..
Thanks..
Edited by: user13329002 on Nov 13, 2010 1:16 AM