Форматирование ячеек Excel

avare65

Добрый день! Может кто знает метод, форматирующий ячейку Excel? То есть ячейка раздвигается под длину выводимых данных из SAP в Excel. Я новичок в этих делах. Заранее огромное спасибо!

Чёрный Freelancer

Следующий код в VBA устанавливает ширину столбцов выделенного по содержимому:

Code:

Selection.Columns.AutoFit

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

Besa

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

Добрый день! Может кто знает метод, форматирующий ячейку Excel? То есть ячейка раздвигается под длину выводимых данных из SAP в Excel. Я новичок в этих делах. Заранее огромное спасибо!

Вы можете использовать разработку Parazit-а viewtopic.php?f=13&t=4880.
Можете записать макрос в Экселе и потом запустить его в своей программе при выгрузке в Эксель.

avare65

Большое спасибо. Сейчас буду пробовать.

raaleksandr

Пример кода

Code:

TYPE-POOLS OLE2.

   DATA: App   TYPE OLE2_OBJECT,
        Doc   TYPE OLE2_OBJECT,
        Wb    TYPE OLE2_OBJECT,
        Ws    TYPE OLE2_OBJECT,
        Cells TYPE OLE2_OBJECT,
        Cell  TYPE OLE2_OBJECT,
        Col   TYPE OLE2_OBJECT.

  Create object App 'Excel.Application'.

  SET PROPERTY OF App 'Visible' = 1.

  CALL FUNCTION 'FLUSH'.

  Call method of App 'Workbooks' = Doc.
  Call method of Doc 'Add'.

  Call method of App 'ActiveSheet' = Ws.
  Call method of Ws 'Cells' = Cell
    EXPORTING
      #1 = 1
      #2 = 1.

  Set Property of Cell 'Value' = 'Very long line to autofit it!!!'.

  Call method of Ws 'Columns' = Col
    EXPORTING
      #1 = 1.

  Set Property of Col 'Autofit' = 1.

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

Форматирование ячеек Excel

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