не знаю как задать форматирование столбца/строки при экспорте в excel ?

Даринка

не знаю как задать форматирование столбца/строки при экспорте в excel ? оочень бы хотелось выводить текст где-то курсивом, а где и заливкой да и другим шрифтом(или размером).... помогите пож-та

sibrin

http://sapboard.ru/forum/viewtopic.php?t=16695
http://sapboard.ru/forum/viewtopic.php?t=7712

John Doe

В этой инструкции все есть: An Easy Reference for OLE Automation.

Galka

если не выгружать в шаблон а из сапа прописывать все эти "красивости" то тааак тормозить будет...
И потом все эти красивости под прихоти пользователя "а вот тут розовенький сделайте голубеньким на салатевеньком фоне" переписывать нервов не хватит :twisted:

DKiyanov

Можно и без OLE или почти без него:
Формируеш HTML файл с нужным форматированием расцветкой и т.д.
и загружаеш его в Excel. получается гораздо быстрее чем черз OLE, особенно если данных много

Даринка

DKiyanov написал:

Можно и без OLE или почти без него:
Формируеш HTML файл с нужным форматированием расцветкой и т.д.
и загружаеш его в Excel. получается гораздо быстрее чем черз OLE, особенно если данных много

мне очень понравилась эта идея

.... но можно капельку по подробнее об почти без OLE, а именно "Формируеш HTML файл" и об "загружаеш его в Excel" КАК?

... ну а HTML я знаю

DKiyanov

Code:

DATA: H_APPL  TYPE OLE2_OBJECT.
DATA: H_BOOKS TYPE OLE2_OBJECT.
DATA: H_WORK  TYPE OLE2_OBJECT.
DATA: H_SHEET TYPE OLE2_OBJECT.

FORM RUN_EXCEL USING HTMLFILE XLSFILE OK.
DATA: H_RANGE TYPE OLE2_OBJECT.
DATA: COL TYPE I.
DATA: WIDTH TYPE I.

  CLEAR OK.

  CREATE OBJECT H_APPL 'EXCEL.APPLICATION'.
  CHECK SY-SUBRC = 0.

  CALL METHOD OF H_APPL 'WORKBOOKS' = H_BOOKS.
  CHECK SY-SUBRC = 0.

  CALL METHOD OF H_BOOKS 'OPEN'
  EXPORTING #1 = HTMLFILE.
  CHECK SY-SUBRC = 0.

  CALL METHOD OF H_APPL 'ACTIVEWORKBOOK' = H_WORK.
  IF SY-SUBRC <> 0. EXIT. ENDIF.

  CALL METHOD OF H_APPL 'ActiveSheet' = H_SHEET.
  IF SY-SUBRC <> 0. EXIT. ENDIF.

* При загрузки HTML файла  EXEL не выставляет ширину столбцов 
* поэтому делаем это через OLE
  IF XLS_PREPARE_COL_WIDTH = 'X'.
    LOOP AT ITCOL WHERE WIDTH > 0.
      WIDTH = ITCOL-WIDTH * CHAR_WIDTH_X + CHAR_WIDTH_X_D.
      ADD 1 TO COL.
      CALL METHOD OF H_SHEET 'Columns' = H_RANGE
        EXPORTING #1 = COL.
      IF SY-SUBRC = 0.
        SET PROPERTY OF  H_RANGE 'ColumnWidth' = WIDTH.
      ENDIF.
    ENDLOOP.
  ENDIF.

* Это надо сделать т.к. если этого не делать файл так и останется
* HTML ным.
  CALL METHOD OF H_WORK 'SAVEAS'
  EXPORTING #1 = XLSFILE
            #2 = -4143. " xlNormal
  CHECK SY-SUBRC = 0.

  OK = 'X'.

  CALL METHOD OF H_WORK 'SAVE'.
ENDFORM.

Можете заглянуть ещё сюда http://dkiyanov.narod.ru/List2Excel/List2Excel.htm

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

не знаю как задать форматирование столбца/строки при экспорте в excel ?

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