Import Excel File Data into oracle database table.

Question

HI,
i want to insert data into a specific table from a excel file. please help me..
for example
emp.xls file's data need to be import in emp database table.
thanks in advance...

Answer 1

Hi,
to all knowledgable person, this would be gald for u all that i have solved the problem.
through this procedure..
PROCEDURE IMPORT_FROM_EXCEL_PROC (as_FileName VARCHAR2, exe_name varchar2) IS
          appid PLS_INTEGER;
          convid PLS_INTEGER;
          docid PLS_INTEGER;
          conv_established BOOLEAN := FALSE;
          buffer VARCHAR2(100);      
          Emp_code VARCHAR2(100);
          Emp_name VARCHAR2(100);
          Emp_desig VARCHAR2(100);
          Emp_Salary VARCHAR2(100);
          ls_error VARCHAR2(1000);
          li_row integer;
          li_col integer;
          li_error_count integer;
          li_load_count integer;
BEGIN
     --Start Excel
     --This line assumes that Excel is in the specified directory
          --     APPID := DDE.APP_BEGIN('D:\OFFICE11\EXCEL.EXE',DDE.APP_MODE_MINIMIZED);
          APPID := DDE.APP_BEGIN(exe_name,DDE.APP_MODE_MINIMIZED);
     --Establish a conversation with Excel
     --The following loop will not end until a conversation with Excel
     --has been established. Therefore, it can result in a endless loop,
     --so use with caution.
          WHILE NOT conv_established LOOP
          BEGIN
          convid := DDE.INITIATE('excel', 'system');
          conv_established := TRUE;
          EXCEPTION
          WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
          conv_established := FALSE;
          END;
          END LOOP;
     --Open Excel document
     --This assumes that you have an Excel spreadsheet named ddetest.xls in the root of c:
          DDE.EXECUTE(convid, '[Open("'||as_FileName||'")]', 10000);     
     --Initiate conversation with Excel document
          docid := DDE.INITIATE('excel',as_FileName);
     --Begin transfer from Excel to Forms
               li_load_count := 0;
               li_error_count := 0;
               li_col := 1;
               li_row := 2;
               GO_BLOCK('IMPORT_XLS');          
               DDE.REQUEST (docid, 'R' || TO_CHAR(li_row) || 'C' || TO_CHAR(li_col), buffer, DDE.CF_TEXT, 1000);          
               WHILE length(buffer) > 2 LOOP           
               WHILE li_col < 5 LOOP
                    buffer := substr(buffer, 1, instr(buffer, chr(10)) - 2);               
               IF li_col = 1 THEN --Emp_code
                    Emp_code := buffer;     
               ELSIF li_col = 2 THEN --Emp_name     
                    Emp_name := buffer;     
               ELSIF li_col = 3 THEN --Emp_desig      
                    Emp_desig := buffer;     
               ELSE --Emp_salary
                    Emp_salary := buffer;
               END IF;
               IF nvl(ls_error,'N') = 'N' THEN
               li_col := li_col + 1;
               DDE.REQUEST (docid, 'R' || TO_CHAR(li_row) || 'C' || TO_CHAR(li_col), buffer, DDE.CF_TEXT, 1000);
               ELSE
               li_col := 5;
               END IF;               
               END LOOP;
               IF nvl(ls_error, 'N') = 'N' THEN
               li_load_count := li_load_count + 1;
               IF li_load_count = 1 THEN
               FIRST_RECORD;
               ELSE
               NEXT_RECORD;
               END IF;
               :IMPORT_XLS.Emp_code := Emp_code;               
               :IMPORT_XLS.Emp_name := Emp_name;          
               :IMPORT_XLS.Emp_desig := Emp_desig;
               :IMPORT_XLS.Emp_salary := Emp_salary;
               ELSE
               li_error_count := li_error_count + 1;
               DDE.POKE(docid, 'R' || TO_CHAR(li_row) || 'C5', ls_error, DDE.CF_TEXT, 10000);
               END IF;
               ls_error := '';
               Emp_code := '';
               Emp_name := '';
               Emp_desig := '';
               Emp_salary := '';
               li_col := 1;
               li_row := li_row + 1;
               DDE.REQUEST (docid, 'R' || TO_CHAR(li_row) || 'C' || TO_CHAR(li_col), buffer, DDE.CF_TEXT, 1000);                
               END LOOP;               
               IF li_error_count > 0 THEN
                    DDE.EXECUTE(convid, '[[save]]', 10000);
                    Message(TO_CHAR(li_load_count) || ' Record(s) Loaded. ' ||
                    TO_CHAR(li_error_count) || ' Invalid Record(s). See error in excel file.');
                    ELSE
                    Message(TO_CHAR(li_load_count) || ' Record(s) Successfully Loaded.');
               END IF;                
               --End transfer to Excel
               DDE.TERMINATE(docid);
               DDE.TERMINATE(convid);
               DDE.APP_END(appid);                          
               --Handle exceptions
               EXCEPTION
               WHEN DDE.DDE_APP_FAILURE THEN
               MESSAGE('WINDOWS APPLICATION CANNOT START.');
               WHEN DDE.DDE_PARAM_ERR THEN
               MESSAGE('A NULL VALUE WAS PASSED TO DDE');
               WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
               MESSAGE('DDE CANNOT ESTABLISH A CONVERSATION');
               WHEN DDE.DMLERR_NOTPROCESSED THEN
               MESSAGE('A TRANSACTION FAILED');
END;