Удаление ячеек на листе Excel через Abap

FILisiza

Добрый день всем!
В сформированном и заполненом шаблоне MS Excel нужно удалить определенный диаппазон ячеек по определенному условию.
Пишу вот так:

Code:

  call method of gs_cells 'RANGE' = rng
  exporting #1 = 'Q57:AA70'.
  if sy-subrc <> 0. free object: rng. exit. endif.
*
  call method of rng 'DELETE' = delete
                     exporting #1 = -4159.
  if sy-subrc <> 0. free object: rng, delete. exit. endif.

 free object: rng, delete.

Блок выделяется, но не удаляется.

Подскажите PLEASE что не так .

Shade

У меня вроде работает такая конструкция:

Code:

  call method of excel 'RANGE' = range
    exporting
      #1 = 'A1:G15'.
  call method of range 'DELETE'.

John Doe

Shade написал:

У меня вроде работает такая конструкция:

Тоже.

FILisiza

Просто DELETE не отрабатывает, т.к. при удалении ячеек в EXCEL обычно требуется выбрать как их удалить - со сдвигом влево/вверх или строку/столбец.
:roll:

John Doe

Простите, а удаление ячеек обязательно? Или все таки достаточно очистить их значения?
Ведь фактически удаление со сдвигом нарушит структуру табличных данных. Я так думаю...

ghost

или например можно использовать методы скрытия для строк или колонок

FILisiza

Удаление ячеек обязательно

, очистка удаляет значения, а уменя кусок таблицы.
Никакую структуру строк удаление не нарушит - здесь все продумано.
Методы скрытия строки колонок - тоже не подходит.
Здесь именно вопрос в удалении определенного блока ячеек. :roll:

ghost

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

FILisiza

произвольный блок.
Но не отрабатывает.
Попробовала сделать как рекомендовал Shade.
Картина та же. Блок выделен мигающим пунктиром, но не удален.

Jelena

А что у вас тут магическое число -4159 означает?

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

call method of rng 'DELETE' = delete
exporting #1 = -4159.

Если вы удаляете не целые строки/колонки, а произвольный кусок (range), то IMHO нужно обязательно указывать "shift cells up" или "shift cells left". В VBA Help в Excel посмотрите примеры к Delete Method:

Цитата:

This example deletes cells A1:D10 on Sheet1 and shifts the remaining cells to the left.
Worksheets("Sheet1").Range("A1:D10").Delete Shift:=xlShiftToLeft

Абрамов Виктор

Цитата:

А что у вас тут магическое число -4159 означает?

Вообще-то это число и означает, что со сдвигом, просто это код константы Const xlShiftToLeft = -4159 (&HFFFFEFC1)

Jelena

Понятно... Хм, попробовала ради интереса - у меня тоже как у Shade работает. Вот полный текст примитивной тестовой программки:

Code:

INCLUDE ole2incl.

DATA:
     obj_excel               TYPE ole2_object,
     obj_books               TYPE ole2_object,
     obj_book                TYPE ole2_object,
     obj_cell                TYPE ole2_object,
     obj_range               TYPE ole2_object,
     l_row                   TYPE i VALUE '1'.

CREATE OBJECT obj_excel 'EXCEL.APPLICATION'.
CALL METHOD OF obj_excel 'WORKBOOKS' = obj_books.
CALL METHOD OF obj_books 'ADD' = obj_book.

DO 3 TIMES.
  PERFORM fill_cell USING l_row 1 l_row.
  PERFORM fill_cell USING l_row 2 l_row.
  PERFORM fill_cell USING l_row 3 l_row.
  l_row = l_row + 1.
ENDDO.

  call method of obj_excel 'RANGE' = obj_range
    exporting #1 = 'A1:B2'.
  call method of obj_range 'DELETE'.

SET PROPERTY OF obj_excel 'VISIBLE' = 1.

*&---------------------------------------------------------------------*
*&      Form  FILL_CELL
*&---------------------------------------------------------------------*
FORM fill_cell USING   p_row p_col val.
  CALL METHOD OF obj_excel 'CELLS' = obj_cell
    EXPORTING
      #1 = p_row
      #2 = p_col.
  SET PROPERTY OF obj_cell 'VALUE' = val.

ENDFORM.                               " FILL_CELL

Программка запускается при закрытом Excel.

SPikARD

создайте целую переменную или константу для этого параметра и передавайте ее, а не строку. видимо начальный минус сбивает сап с толку и он передает параметр как текстовый.
в общем, что-то типа того:

Code:

constants: xlShiftToLeft type i value '-4159'.

.....

call method of rng 'DELETE'
                  exporting #1 = xlShiftToLeft.

FILisiza

SPikARD, Попробовала через константу - эффекта никакого.

Jelena, DELETE тоже не отрабатывает, блок как был так и есть. :oops:

FILisiza

Ура! Получилось!
Всем спасибо.
А не хватало "магического"

SET PROPERTY OF gs_excel 'VISIBLE' = 1. :oops:

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

Удаление ячеек на листе Excel через Abap

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