PROCEDURE proc_excel(p_source_txt in varchar2, p_source_xls in varchar2, p_destination_xls in varchar2) IS
 app PLS_INTEGER;
 ExcelFile VARCHAR2( 100 );
 AppID  PLS_INTEGER;
 ConvID PLS_INTEGER;
 v_run BOOLEAN;
begin
--- SET_APPLICATION_PROPERTY(CURSOR_STYLE,'BUSY');
 
 app := ole2.create_obj('excel.application');
 ExcelFile := upper(ole2.get_char_property(app,'path')||'\'||'excel.exe');
 
 v_run := WEBUTIL_FILE.Copy_File(p_source_xls, p_destination_xls);

 AppID := DDE.App_Begin(ExcelFile || ' ' || p_destination_xls,DDE.App_Mode_Normal);
 ConvId := DDE.Initiate ('excel',p_destination_xls);

 DDE.Execute (ConvID,'[Run("GoMyM.GoMy";FALSE)]', 6000  *  3 );
 DDE.App_Focus (AppID); 
 
 v_run := WEBUTIL_FILE.Delete_File(p_source_txt);
 v_run := WEBUTIL_FILE.Delete_File(p_destination_xls); 

--- SET_APPLICATION_PROPERTY(CURSOR_STYLE,'DEFAULT'); 

end;