PACKAGE PK_EXCEL_TO_DB IS
  TYPE tKeyValue IS RECORD (
    CROUTE         VARCHAR2(255),
    VROUTE         VARCHAR2(1000),
    CTRNDATE       VARCHAR2(255),
    VTRNDATE       VARCHAR2(1000),
    CTTIME	        VARCHAR2(255),
    VTTIME         VARCHAR2(1000),
    CTID           VARCHAR2(255),
    VTID           VARCHAR2(1000));
    
  TYPE tDataList IS TABLE OF tKeyValue;
  PROCEDURE PR_DO_INSERT(i_lData IN tDataList);	
END

PACKAGE BODY PK_EXCEL_TO_DB IS
    PROCEDURE PR_DO_INSERT(i_lData IN tDataList) IS
   vcInsert  					VARCHAR2(3500);
  BEGIN
 
    FOR i IN 1..i_ldata.count LOOP
       	
     vcInsert :='INSERT INTO TEST (' || i_ldata(i).CROUTE || ', ' || i_ldata(i).CTRNDATE || ', ' || i_ldata(i).CTTIME || ', '||i_ldata(i).CTID || ')' ||
                 ' VALUES (' || i_ldata(i).VROUTE || ', ' || i_ldata(i).VTRNDATE || ', ' || i_ldata(i).VTTIME || ',' || i_ldata(i).VTID || ')';
       FORMS_DDL(vcInsert);                        
    END LOOP;
    STANDARD.COMMIT;

--COMMIT;                                    
  END;
END;

:block.item_name := vcinsert;

SQL> select ''''    || 1234 || ''''    complex,
  2         chr(39) || 1234 || chr(39) easy
  3  from dual;

COMPLE EASY
------ ------
'1234' '1234'

SQL>
SQL> declare
  2    lq varchar2(1) := chr(39);
  3  begin
  4    dbms_output.put_line(lq || 1234 || lq);
  5  end;
  6  /
'1234'

PL/SQL procedure successfully completed.

SQL>

SQL> select q'[1''234]' q_mech FROM dual;

Q_MECH
------------------
1''234