Редактирование файла Excel

maratelo

Добрый день.
У меня такая проблема. Из файла Excel необходимо удалить столбец.
Откопал код, который удаляет строку, вот он:
....

Code:

        CALL METHOD OF sheets 'range' = range EXPORTING #1 = '1:1'.
        CALL METHOD OF range 'Delete' EXPORTING #1 = 3.

....
Может подскажете как можно тем же макаром удалить и столбец

Alex80

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

Добрый день.
У меня такая проблема. Из файла Excel необходимо удалить столбец.
Откопал код, который удаляет строку, вот он:
....

Code:

        CALL METHOD OF sheets 'range' = range EXPORTING #1 = '1:1'.
        CALL METHOD OF range 'Delete' EXPORTING #1 = 3.

....
Может подскажете как можно тем же макаром удалить и столбец

Code:

CALL METHOD OF sheets 'range' = range EXPORTING #1 = 'A:A'. 
        CALL METHOD OF range 'Delete' EXPORTING #1 = 3.

maratelo

Спасибо, Alex80.
:oops:

Только проблема в том, что в программе на столбцы счётчик.
И как удалить 68-й столбец, не зная буквенного обозначения столбца?

Alex80

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

Спасибо, Alex80.
:oops:

Только проблема в том, что в программе на столбцы счётчик.
И как удалить 68-й столбец, не зная буквенного обозначения столбца?

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

Code:

DATA:
  gv_column TYPE i,
  gv_excel_column TYPE char2,
  gv_mod TYPE i,
  gv_div TYPE i.

IF gv_column BETWEEN 27 AND 256.
  gv_mod = ( gv_column MOD 26 ) - 1.
  gv_div = ( gv_column DIV 26 ) - 1.
  CONCATENATE sy-abcde+gv_div(1) sy-abcde+gv_mod(1)
   INTO gv_excel_column.
ENDIF.

Правда что-то очень похоже на велосипед. :-)

maratelo

Спасибо ещё раз

.
Ни разу еще не сталкивался с таким системным полем. Попробую.
У меня вся программа как велосипед :lol:

RRRoman

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

Спасибо, Alex80.
:oops:

Только проблема в том, что в программе на столбцы счётчик.
И как удалить 68-й столбец, не зная буквенного обозначения столбца?

а что известно про столбец? только его номер?

maratelo

Ага. Но всё уже и так работает, спасибо Alex80

bossjohn

А вот так не сработало бы?

Code:

DATA: my_column TYPE OLE2_OBJECT.
CALL METHOD OF H_EXCEL 'Columns' = my_column
    EXPORTING
    #1 = 1.   "номер столбца
CALL METHOD OF my_column 'Delete' . 

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

maratelo

спасибо, bossjohn
Работает

Оставлю твой метод - он проще .

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

Редактирование файла Excel

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