-- Экспорт данных в MS Excel из Oracle
declare
-- в таблице PROGTBL. 
 
  CURSOR curTotal IS   
  SELECT COUNT(*) RecNumber FROM PROGTBL ato
  where UPPER(ato.PROGRAM) = 'POISK';
   
  recTotal curTotal%ROWTYPE; 
 
-- Курсор для чтения записей из таблицы PROGTBL. 
 
  CURSOR curDEBUGTBL IS 
  SELECT ato.TEXT TEXT
  FROM PROGTBL ato
  where UPPER(ato.PROGRAM) = 'POISK'
  ORDER BY ato.AVTOR, ato.SESS_NUMB;
   
  recDEBUGTBL curDEBUGTBL%ROWTYPE; 
   
-- Локальные переменные для заполнения ячеек Exсel 
   
  vLocTEXT VARCHAR2( 2000 ) := ' '; -- TEXT
   
-- Переменные для адресов ячеек Excel 
  
  rc1 VARCHAR2(  10 ) := 'r1c1'; 
  rc2 VARCHAR2(  10 ) := 'r1c2'; 
  rc3 VARCHAR2(  10 ) := 'r1c3'; 
  
  idApp PLS_INTEGER; -- идентификатор DDE приложения 
  idConv PLS_INTEGER; --идентификатор DDE диалога 
  
  nRecNUMBER NUMBER :=  0 ; -- общее количество записей 
  vRecNUMBER VARCHAR2( 30 ) := ''; -- кол.записей в символьном
   
  barWidth NUMBER :=  0 ; -- длина индикатора выполнения 
  nButton PLS_INTEGER :=  0 ; -- номер кнопки 
  i NUMBER :=  1 ; -- счетчик строк 
  
  bErr BOOLEAN := TRUE; -- признак завершения с ошибками 
	  vErrText VARCHAR2(  1000 ) := ''; -- текст ошибки 
 
 
  
-- Процедура завершения работы. 
  
   PROCEDURE To_Complete IS 
    
-- Завершаем диалог с Excel. 
-- Возвращаем экранному курсору нормальный вид. 
-- Возвращаемся в основной блок. 
 
   BEGIN 
 
    DDE.Terminate( idConv); 
    Set_Application_Property( CURSOR_STYLE, 'DEFAULT');
    -- Go_Block( 'BLK_MAIN'); 
    
-- Если были ошибки, сообщаем о них пользователю 
-- и завершаем работу подпрограммы с помощью 
-- встроенного исключения. 
 
     IF bErr = TRUE THEN 
       Inform(vErrText, 'E', FALSE);
       RAISE Form_Trigger_Failure; 
       END IF; 
   END; 
  
-- НАЧАЛО 
 
BEGIN 
  
-- Если выходная таблица Excel SALARY_TEXT.XLS открыта,  
-- то реакция разных версий Excel не одинакова. 
-- Но, в любом случае, ситуация является конфликтной, 
-- поэтому предлагаем пользователю закрыть таблицу.  
 
  BEGIN  
  
    WHILE TRUE LOOP 
         idConv := DDE.Initiate('EXCEL.EXE', 'TEXT_LIST.XLS');
         Set_Alert_Property( 'SIGNAL2', ALERT_MESSAGE_TEXT, 
             'Закройте таблицу Excel '|| 
               'и нажмите ОК для продолжения.'); 
    
         IF( Show_Alert( 'SIGNAL2') = ALERT_BUTTON2) THEN
             RETURN; -- пользователь нажал кнопку "Отменить
         END IF; 
    END LOOP;  
   
  EXCEPTION 
  WHEN DDE.Dmlerr_No_Conv_EstablIShed THEN 
   NULL; 
  END; 
   
-- Экранный курсор -> песочные часы 
  
   Set_Application_Property( CURSOR_STYLE, 'BUSY'); 
 
-- Подсчитываем общее количество строк для записи в Excel
 
   OPEN curTotal; 
   FETCH curTotal INTO recTotal; 
   nRecNUMBER := recTotal.RecNUMBER; 
   CLOSE curTotal; 
  
-- Возвращаем экранному курсору нормальный вид  
 
   Set_Application_Property( CURSOR_STYLE, 'DEFAULT'); 
 
-- Если записей нет, сообщаем об этом пользователю  
-- и завершаем работу 
  
   IF nRecNumber IS NULL THEN 
     Inform('Нет записей для экспорта в Excel.'); 
     RETURN; 
    ELSE 
 
-- Сообщаем пользователю, какое количество записей будет 
-- экспортировано в Excel и предлагаем продолжить.  
-- Если пользователь нажимает кнопку Отменить, завершаем р
 
       vRecNUMBER := To_Char( nRecNUMBER) ; 
       Set_Alert_Property( 'SIGNAL2', ALERT_MESSAGE_TEXT, 
          vRecNumber|| 
            ' записей будут экспортированы в Excel. Продолжи');
       
       IF( Show_Alert( 'SIGNAL2') = ALERT_BUTTON2) THEN 
          RETURN; 
       END IF; 
    END IF; 
  
-- Экранный курсор -> песочные часы  
 
    Set_Application_Property( CURSOR_STYLE, 'BUSY'); 
 
-- Запускаем Excel. Если оставить окно Excel видимым,  
-- то при заполнении ячеек возникает неприятный эффект мельк
-- Поэтому выбираем свернутый режим запуска.  
 
    idApp := DDE.App_BEGIN( 
    'C:\Program Files\Microsoft Office\OFFICE11\EXCEL.EXE TEXT_LIST.XLS',
        DDE.App_Mode_MINIMIZED); 
     
-- Открываем диалог DDE сервером Excel   
 
    idConv := DDE.Initiate('EXCEL.EXE', 'TEXT_LIST.XLS');
 
-- Оформляем индикатор выполнения. Он представляет из себя 
-- надпись "Экспорт в Excel ...", ниже которой находится дли
-- прямоугольник RECT_BAR, внутри которого движется цветная
-- полоска BAR. Вычисляем длину RECT_BAR, 

-- обнуляем BAR и переходим в блок индикатора. 
 
   -- barWidth := get_item_Property( 'RECT_BAR', WIDTH) - 2
    --Go_Block( 'BLK_CALC'); 
    -- Synchronize; 
  
-- Здесь начинается цикл чтения - записи. 
 
   FOR recDEBUGTBL IN curDEBUGTBL LOOP 
     
-- Для записи данных в Excel нам необходимы символьные данны
-- Кроме того, попытка передать NULL приводит к ошибке. 
-- С учетом этого переписываем прочитанные данные  
-- в локальные переменные. 
    
        IF recDEBUGTBL.TEXT IS NOT NULL THEN 
            vLocTEXT := recDEBUGTBL.TEXT; 
        END IF; 
   
        /*
        IF recSalary.Namet IS NOT NULL THEN 
            vLocNamet := recSalary.Namet; 
        END IF; 
   
        IF recSalary.Summ IS NOT NULL THEN 
             vLocSumm := To_Char( recSalary.Summ); 
        END IF; 
        */
         
-- Увеличиваем счетчик записей. 
-- Формируем адреса ячеек и записываем данные в таблицу Exce
-- Последний параметр в DDE.Poke это время ожидания в миллис
-- Значение по умолчанию - 1000. Его можно подобрать экспери
     
        i := i +  1 ; 
        rc1 := 'r'||To_Char(i)||'c1';  
        DDE.Poke( idConv, rc1, vLocTEXT, DDE.CF_TEXT,  2000 );
        
        /*
        rc2 := 'r'||To_Char(i)||'c2';  
        DDE.Poke( idConv, rc2, vLocNamet, DDE.CF_TEXT, 1000
        rc3 := 'r'||To_Char(i)||'c3';  
        DDE.Poke( idConv, rc3, vLocSumm, DDE.CF_TEXT, 1000
        */

-- Вычисляем новую длину цветной полоски в индикаторе выполн
 
--   set_item_property( 'BAR', WIDTH, barWidth * (i-1)
--   Synchronize; 
  
 END LOOP; -- конец цикла чтения - записи 
  
-- Завершаем работу подпрограммы 
 
    bErr := FALSE; 
    To_Complete; 
   
EXCEPTION 
 
--Обработка ошибок DDE 
 
    WHEN DDE.DDE_App_Failure THEN 
        vErrText := 'Ошибка при запуске приложения Excel.';
        To_Complete; 
    WHEN DDE.DDE_App_Not_Found THEN  
        vErrText :=  
          'Идентификатор приложения, заданный в вызове DDE.App_END'||
          ' или DDE.App_Focus не соответствует приложению, '||
          'выполняемому в настоящий момент.'; 
        To_Complete; 
     WHEN DDE.DDE_Fmt_Not_Found THEN  
        vErrText :=  
          'Идентификатор формата, заданный в вызове '|| 
          'DDE.Getformatstr неизвестен';
        To_Complete; 
    WHEN DDE.DDE_Fmt_Not_Reg THEN  
        vErrText :=  
          'Строка формата, заданная в вызове DDE.Getformatnum'||
          ' не соответствует ни одному из предопределенных форматов'||
          ' и не была зарегистрирована пользователем.';  
        To_Complete; 
    WHEN DDE.DDE_Init_Failed THEN  
        vErrText :=  
          'Приложение не может инициализировать DDE соединение;'||          
          ' обращение на уровень соединения с DDE вызывает сбой.';

        To_Complete; 
    WHEN DDE.DDE_Param_Err THEN  
        vErrText :=  
          'В пакетную программу DDE передан неверный параметр '||
          '(например, пустое значение).'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Busy THEN  
        vErrText :=  
          'Сбой транзакции, поскульку сервер занят.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Dataacktimeout THEN  
        vErrText :=  
          'Запрос на синхронную передачу данных выполнился ' ||
          'со сбоем из-за истечения времени ожидания.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_ExecackTimeout THEN  
        vErrText :=  
          'A request for a synchronous execute transaction has timed out.';
        To_Complete; 
    WHEN DDE.Dmlerr_Invalidparameter THEN  
        vErrText :=  
          'Неправильный параметр. Возможные причины:'|| 
          'приложение использовало указатель на данные инициализированные '||
          'с другим указателем или форматом данных буфера обмена, '||
          'чем требуется в транзакции. Приложение использовало неверный '||
          'идентификатор диалога. Более одного экземпляра приложения '||
          'использует один и тотже обьект.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Memory_Error THEN  
        vErrText := 'Ошибка выделения памяти.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_No_Conv_EstablIShed THEN  
        vErrText :=  
          'Сбой при попытке установить диалог. '|| 
          'Возможно, ошибочно заданы имя сервиса или темы ' ||
          'при обращении к DDE.Initiate.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Notprocessed THEN  
        vErrText :=  
          'Сбой транзакции. Возможно, ошибочно задано имя элемента '||
          'при обращении к процедуре DDE.Poke или DDE.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Not_Supported THEN  
        vErrText :=  
          'Был сделан вызов пакета DDE, но DDE не поддерживает '||
          'данное программное обеспечение.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Pokeacktimeout THEN 
        vErrText :=  
          'Сбой  в запросе на передачу данных из-за истечения '||
          'времени ожидания.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Postmsg_Failed THEN  
        vErrText :=  
          'Сбой при внутреннем обращении к функцииe PostMessage.';
        To_Complete; 
    WHEN DDE.Dmlerr_Server_Died THEN   
        vErrText :=  
          'Сервер завершил работу, прежде чем транзакция была '||
          'полностью отработана.'; 
        To_Complete; 
    WHEN DDE.Dmlerr_Sys_Error THEN  
        vErrText :=  
          'Произошла внутренняя ошибка на уровне обмена данными.';
    
-- Обработка ошибок Oracle 
 
    WHEN OTHERS THEN 
        vErrText :=  
          ERROR_TYPE||'-'||TO_CHAR(ERROR_CODE)||': '||ERROR_TEXT||
          '     ORA-'||TO_CHAR(DBMS_ERROR_CODE)||': '||DBMS_ERROR_TEXT;
        To_Complete; 
END;