Uploading data from MS-Excel to form

Question

To upload from Microsoft Excel files (.xls) to display in the form the following need to be done.
Create two blocks in the first block create three fields in which the first is text item. Name it as TXT_FILE_NAME. The other two items are buttons. Name it BTN_BROWSE and BTN_UPLOAD respectively.
In the second block, make it a multi-record block. Create 15 text items inside the second block with naming such as OUTPUT1 to OUTPUT15.
Now do the following:
1. The following is the code inside BTN_BROWSE
DECLARE
filename VARCHAR2(256);
BEGIN
filename := GET_FILE_NAME(File_Filter=> 'Excel Files
(*.xls)|*.xls|');
if filename is not null then
:txt_file_name := filename;
end if;
go_item('txt_file_name');
END;
2. In the BTN_UPLOAD code do the following
DECLARE
AppID PLS_INTEGER;
ConvID PLS_INTEGER;
Buffer VARCHAR2(240);
ROWCOL VARCHAR2(20);
CNT NUMBER;
BEGIN
AppID := DDE.App_Begin(<complete-path-of-excel-executable>||:TXT_FILE_NAME, DDE.App_Mode_Minimized);
ConvID := DDE.Initiate('EXCEL', :TXT_FILE_NAME);
GO_BLOCK('BLOCK2');
FIRST_RECORD;
FOR I IN 5 .. 500 LOOP
CNT := 0;
FOR J IN 1 ..6 LOOP
BUFFER := '';
CNT := CNT + 1;
DDE.Request (ConvID, 'R'||I||'C'||J, Buffer, DDE.Cf_Text, 240);
BUFFER := RTRIM(LTRIM(BUFFER));
BUFFER := SUBSTR(BUFFER,0,LENGTH(BUFFER)-2);
IF BUFFER IS NULL THEN
EXIT;
END IF;               
COPY(BUFFER,'BLOCK2.OUTPUT'||TO_CHAR(CNT));
END LOOP;
IF BUFFER IS NULL THEN
EXIT;
END IF;               
CREATE_RECORD;
END LOOP;
DDE.Terminate(ConvID);
DDE.App_End(AppID);
FIRST_RECORD;
END;
=====================================================
Author : Anantha Narayanan
email : [email protected]
=====================================================

Answer 1

First link explains all about your question, Refer second one for more ideas.
Reading Excel Sheet from Java without using any Framework
Enhanced File Upload - Uploading and Processing Excel Sheets
Regards
   Vinod