DOI+Excel: вставка строк (без помощи макросов!)

111

Всем привет.
Сорри, если вопрос чайниковский.
Уже реализовал класс, который читает данные (единичные ячейки и таблицы) из Excel'евских документов. Хотел бы заставить его заодно и записывать данные (единичные ячейки и таблицы) в документы.
Проблема в том, что не соображу, как через DOI вставлять строки в документ, для вывода таблиц (чтобы строки, идущие после таблицы, сдвигались вниз).

Как?
1.) Через DOI;
2.) Без использования макросов.
Заранее спасибо.

Пара замечаний:
1.) Как это делается через OLE, я знаю.
2.) Как это делается макросами, я тоже знаю.

Пономарев Артем

Проименуй в экселе ячейки, куда собираешься выводить, и используй метод интерфейса SHEET - SET_RANGES_DATA.

111

Пономарев Артем написал:

Проименуй в экселе ячейки, куда собираешься выводить, и используй метод интерфейса SHEET - SET_RANGES_DATA.

Да это понятно.
Но что нужно сделать, чтобы эти ячейки (которые надо "проименовать") были?

Есть:
1.) Хидер;
2.) Таблица (в шаблоне - одна строка);
3.) Футер.

Нужно заполнить таблицу произвольным количеством строк (сдвинув футер вниз), затем заполнить футер.

КАК?

111

111 написал(а):

Нужно заполнить таблицу произвольным количеством строк (сдвинув футер вниз), затем заполнить футер.

КАК?

А и ладно. Сделаю по-тупому. Прочитаю то, что идет после таблицы, затем это скопирую вниз.

Пономарев Артем

INSERT_RANGE_DIM вместо велосипеда и простой подсчет строк таблицы в программе избавят от тупого подхода.

111

Пономарев Артем написал:

INSERT_RANGE_DIM вместо велосипеда и простой подсчет строк таблицы в программе избавят от тупого подхода.

МЛИН!!!

Ну не вставляет строки этот метод, не вставляет!

См. выше.
Я несколько раз подчеркнул в предыдущих постах, что мне надо ВСТАВИТЬ СТРОКИ, чтобы строки, идущие после позиции вставки, СДВИНУЛИСЬ ВНИЗ.

nicky555

C помощью DOI - никак. Только смесь DOI+OLE типа:

Code:

  DATA: ls_handle TYPE cntl_handle,
        ls_range  TYPE ole2_object,
        ls_appl   TYPE ole2_object.

        CALL METHOD excel->select_range
             EXPORTING rangename = <range>
                       no_flush  = 'X'.

        CALL METHOD document->get_document_handle
          IMPORTING error    = error
                    handle   = ls_handle
                    retcode  = retcode.
        GET PROPERTY OF ls_handle-obj 'Application' = ls_appl.
        IF sy-subrc = 0.
          DO i_rows TIMES.
            CALL METHOD excel->select_range
                 EXPORTING rangename = <range>
                           no_flush  = 'X'.
            GET PROPERTY OF ls_appl 'Selection' = ls_range queue-only.
            CALL METHOD OF ls_range 'Copy' NO FLUSH QUEUE-ONLY.
            CALL METHOD OF ls_range 'Insert'
                 NO FLUSH QUEUE-ONLY
                 EXPORTING #1 = -4121.
          ENDDO.
          SET PROPERTY OF ls_appl 'CutCopyMode' = 0 queue-only.
          FREE OBJECT: ls_appl,
                       ls_range.
        ENDIF.

Здесь <range> - твоя шаблонная строка, формат которой сохранится при вставке новых строк, i_rows - число вставленных строк.

holocron

супер! отличная тема!!! очень помогла. недаром EGF и Nicky555 - гуру!!

от себя лишь скажу, что если выводить много строк (около 20000), то производительней сделать так:

Code:

          CALL METHOD excel->select_range 
               EXPORTING rangename = <range> 
                         no_flush  = 'X'. 
          GET PROPERTY OF ls_appl 'Selection' = ls_range queue-only. 
          CALL METHOD OF ls_range 'Copy' NO FLUSH QUEUE-ONLY. 
          DO i_rows TIMES. 
            CALL METHOD OF ls_range 'Insert' 
                 NO FLUSH QUEUE-ONLY 
                 EXPORTING #1 = -4121. 
          ENDDO. 

vga

У последнего метода есть неприятное свойство. Если ниже вставляемых строк есть ячейки смерженные вертикально, то количество вставленных строк может быть больше, чем вы хотите вставить. Если ниже идет текст, то могут оказаться пустые строки.

Правила форума

DOI+Excel: вставка строк (без помощи макросов!)

Кто сейчас на конференции