изменение ширины столбца при выводе данных в Excel

Nicky

Есть подпрограмма вывода данных в Excel:

Code:

DATA: H_EXCEL TYPE OLE2_OBJECT,        " Excel object
          H_ZL TYPE OLE2_OBJECT,              " cell
          H_F TYPE OLE2_OBJECT.                " font

FORM FILL_CELL USING I J BOLD VAL.
  CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.
  SET PROPERTY OF H_ZL 'Value' = VAL .
  GET PROPERTY OF H_ZL 'Font' = H_F.
  SET PROPERTY OF H_F 'Bold' = BOLD .
ENDFORM.

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

Сашок

Я пользуюсь разработкой Parazit'a и делаю такие штуки VB макросами. Поищи на этом форуме по zwww - это наверное самый популярный топик.
Да, если не хочется переходить на его разработку :roll:

, то можно подсмотреть в исходниках как макрос запустить :wink:

bossjohn

а макрос можно запустить вот так

Code:

DATA:
  excel_application   TYPE ole2_object.

FORM excel_macro_run
  USING
    i_name.

  CALL METHOD OF excel_application 'RUN'
    EXPORTING
    #1 = i_name.

  IF sy-subrc NE 0.
    sy-subrc = 4.
    EXIT.
  ENDIF.

ENDFORM.             

Jelena

Пример:

Code:

data: obj_column  type ole2_object.

call method of obj_excel 'COLUMNS' = obj_column
       exporting #1 = 16.
set property of obj_column 'ColumnWidth' = 25.

Здесь 25 - это ширина колонки, а 16, если не ошибаюсь (давно дело было), порядковый номер.

bossjohn

Цитата:

Пример:

Код:
data: obj_column type ole2_object.

call method of obj_excel 'COLUMNS' = obj_column
exporting #1 = 16.
set property of obj_column 'ColumnWidth' = 25.

Здесь 25 - это ширина колонки, а 16, если не ошибаюсь (давно дело было), порядковый номер.

Так мне кажется будут трудности с определением необходимой ширины.
Можно сделать вот так:

Code:

*заполнение значения ячейки
*.....
****************************
DATA: my_column TYPE OLE2_OBJECT.
CALL METHOD OF H_EXCEL 'Columns' = my_column
    EXPORTING
    #1 = 1.   "номер столбца
CALL METHOD OF my_column 'AutoFit' .

Nicky

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

Code:

*заполнение значения ячейки
*.....
****************************
DATA: my_column TYPE OLE2_OBJECT.
CALL METHOD OF H_EXCEL 'Columns' = my_column
    EXPORTING
    #1 = 1.   "номер столбца
CALL METHOD OF my_column 'AutoFit' .

Спасибо большое!
Все оказалось даже лучше, чем я сам себе мог представить!

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

изменение ширины столбца при выводе данных в Excel

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