Insert Excel data into Oracle

Question

I am having the following code in Button-Press-Event for inserting the data from the selected Excel sheet. My problem is only the last row of the Excel file is store in Oracle Table. Others are not at all coming. Anybody having idea on this....?
DECLARE
     M_APPID PLS_INTEGER;
     M_CONVID PLS_INTEGER;
     M_BUFFER VARCHAR2(240);
     M_CNT NUMBER;
     M_ROW NUMBER;
     M_COL NUMBER;
     M_ROWID NUMBER := 0;
     M_ERROR CHAR;
     M_EXCEL_FILE VARCHAR2(2000);
     M_EXIT_FLAG CHAR(1);
BEGIN
     SET_ITEM_PROPERTY('M_PROCESSING_INFO',VISUAL_ATTRIBUTE,'BP_LOOK');
:M_PROCESSING_INFO := 'Validating file, please wait...';
     SYNCHRONIZE;
SET_ITEM_PROPERTY('M_BTN_PREVIEW',ENABLED,PROPERTY_FALSE);
     L_VALIDATE_FILE_EXISTENCE;
     GO_BLOCK('OW_EXCEL_UPLOAD');
     CLEAR_BLOCK(NO_VALIDATE);
     GO_BLOCK('OT_EXCEL_ERROR_LOG');
     CLEAR_BLOCK;
SET_BLOCK_PROPERTY('OW_EXCEL_UPLOAD',UPDATE_ALLOWED,PROPERTY_FALSE);
SET_BLOCK_PROPERTY('OW_EXCEL_UPLOAD',DELETE_ALLOWED,PROPERTY_FALSE);
SET_BLOCK_PROPERTY('OW_EXCEL_UPLOAD',INSERT_ALLOWED,PROPERTY_TRUE);
     GO_ITEM('OW_EXCEL_UPLOAD.OU_ROW_NO');
     M_APPID := DDE.APP_BEGIN(M_EXCEL_FILE|| ' '||CHR(34)||:P_TXT_FILE_NAME||CHR(34), DDE.APP_MODE_MINIMIZED);
     M_CONVID := DDE.INITIATE('EXCEL', :P_TXT_FILE_NAME);
     FIRST_RECORD;
     M_CNT := 0;
     FOR M_ROW IN :M_START_ROW .. :M_END_ROW LOOP
          M_ROWID := M_ROWID + 1;
          FOR M_COL IN :M_START_COL .. :M_END_COL LOOP
               INSERT INTO TEMP VALUES (M_ROWID, M_COL);
               M_BUFFER := '';
               M_CNT := M_CNT + 1;     
               :M_PROCESSING_INFO := 'Processing R'||M_ROW||'C'||M_COL;
               SYNCHRONIZE;
               DDE.REQUEST(M_CONVID, 'R'||M_ROW||'C'||M_COL, M_BUFFER, DDE.CF_TEXT, 240);
               M_BUFFER := RTRIM(LTRIM(M_BUFFER));
               M_BUFFER := SUBSTR(M_BUFFER,0,LENGTH(M_BUFFER)-2);
               :M_PROCESSING_INFO := 'Processed R'||M_ROW||'C'||M_COL;
               SYNCHRONIZE;
               IF M_BUFFER IS NULL AND M_COL = 1 THEN
                    M_EXIT_FLAG := 'Y';
                    EXIT;
               END IF;
COPY(M_ROWID,'OW_EXCEL_UPLOAD.OU_ROW_NO');
BEGIN
IF M_COL = 1 THEN
     :EXU_CONT_NO := M_BUFFER;
ELSIF M_COL = 2 THEN
     :EXU_LOT_NO := M_BUFFER;
ELSIF M_COL = 3 THEN
     :EXU_PART_NO := M_BUFFER;
ELSIF M_COL = 4 THEN
     :EXU_QTY := TO_NUMBER(M_BUFFER);
END IF;
EXCEPTION
WHEN OTHERS THEN
L_SAVE_ERROR_LOG(:P_TXT_FILE_NAME,M_ROW,M_BUFFER,L_ERR_DESC(3107));
GO_BLOCK('OT_EXCEL_ERROR_LOG');
EXECUTE_QUERY;
END;
END LOOP;          
          CREATE_RECORD;
          M_CNT := 0;
          IF M_EXIT_FLAG = 'Y' THEN
               EXIT;
          END IF;
     END LOOP;
     :M_RECORD_CNT := M_ROWID - 1;
     DDE.TERMINATE(M_CONVID);
     DDE.APP_END(M_APPID);
     FIRST_RECORD;
COMMIT;
          :M_PROCESSING_INFO := 'Data in the Excel Sheet uploaded into the System.';
          SYNCHRONIZE;     
     GO_BLOCK('OW_EXCEL_UPLOAD');
EXECUTE_QUERY;
END;
Note:
My temp table is having exact number of rows as in Excel sheet.

Answer 1

Have you used the debugger and single stepped through the code to see where the problem is?