Выгрузка в Excel OLE2 -?

Silence1

Пожалуйста, знатоки, посоветуйте. Тема для меня новая, надо в чужом коде сделать исправления.
Данные выгружаются в Excel, код содержит следующее:

Code:

DATA: G_EXCEL type ole2_object,
          G_CELL   TYPE OLE2_OBJECT.
....
CALL METHOD OF G_EXCEL 'CELLS' = G_CELL no flush
    EXPORTING #1 = I_ROW
    #2 = I_COL.
....
* и дальше устанавливаются свойства типа:
SET PROPERTY OF G_CELL 'HorizontalAlignment' = XLLEFT no flush.

Вопросов два:
1. какое свойство задать, чтобы данные в ячейке не преобразовывались в число ( типа когда в самом Excelе ставим апостроф в ячейке) А то счет ГК выглядит как 60011100,00

2. Как эта методика по-умному называется и что нужно почитать, чтобы быстро въехать

trop

перед записью значения, укажите формат ячейки (@ = текстовый),
тогда и гориз. выравнивание делать не нужно:

Code:

SET PROPERTY OF G_CELL 'NumberFormat' = "@" no flush queue-only.

запись макросов полезная штука, смотрите что нужно делать,
сокращаете, проверяете и затем переносите в abap

Silence1

Не помогло

trop

выложите код, где все это происходит

Silence1

частично я сверху выложила

Code:

* To set number format for cell
  IF I_DIGIT <> ''.
    IF I_VALUE IS INITIAL AND I_DIGIT <> '%'.
      SET PROPERTY OF G_CELL 'VALUE' = '' no flush.
    ELSE.
* Set number format for cell with number
      IF I_DIGIT = '1'.
        SET PROPERTY OF G_CELL 'NumberFormat' = '#,###.0 ' no flush.
      ELSEIF I_DIGIT = '2'.
        SET PROPERTY OF G_CELL 'NumberFormat' = '#,##0.00 ' no flush.
      ELSEIF I_DIGIT = '%'.
        SET PROPERTY OF G_CELL 'NumberFormat' = '#,##0.00% ' no flush.
      ELSE.
        SET PROPERTY OF G_CELL 'NumberFormat' = '#,### ' no flush.
      ENDIF.
    ENDIF.
  ELSE.
* это я пыталась:
    SET PROPERTY OF G_CELL 'NumberFormat' = '0' no flush. 
  ENDIF.

ставила BREAK-POINT и убеждалась, что попадаю сюда для нужного столбца
не помогло так же

Code:

SET PROPERTY OF G_CELL 'NumberFormat' = '@' no flush.

В итоге я втупую в табличке с данными, которая передается, наставила апострофы в полях, котрые нужно выводить как текст :lol:

ghost

почему

Code:

  
...
ELSE.
* это я пыталась:
  SET PROPERTY OF G_CELL 'NumberFormat' = '0' no flush. 
ENDIF.

а не

Code:

  
...
ELSE.
* это я пыталась:
   SET PROPERTY OF G_CELL 'NumberFormat' = '@' no flush. 
ENDIF.

как уже вам подсказали

должно работать вот рабочий пример

Code:

perform f_format_cell 
  using l_row 
        l_col 
        'F'.
...
*Формат ячейки ('C' - Текст,'N'-число, 'F' - финансовый, 'T' - временной, 'D' - Даты, 'R' - Количественный формат)
form f_format_cell 
  using row 
        column 
        format_cell.

  call method of excel_sheet 'cells' = excel_cell no flush
    exporting #1 = row 
                  #2 = column.

  case format_cell.
    when 'N' or 'n'. " Числовой формат
      set property of excel_cell 'NumberFormat' = '0' no flush.
    when 'F' or 'f'. " финансовый формат
      set property of excel_cell 'NumberFormat' = '#,##0.00;[Red]-#,##0.00' no flush.
    when 'C' or 'c'. " Текстовый формат
      set property of excel_cell 'NumberFormat' = '@' no flush.
    when 'D' or 'd'. " Дата формат
      set property of excel_cell 'NumberFormat' = 'm/d/yy' no flush.
    when 'T' or 't'. " Время формат
      set property of excel_cell 'NumberFormat' = 'h:mm:ss' no flush.
    when 'R' or 'r'. " количественный формат
      set property of excel_cell 'NumberFormat' = '#,##0.000' no flush.
  endcase.
endform.                    "f_format_cell

Jelena

Silence1 написала:

2. Как эта методика по-умному называется и что нужно почитать, чтобы быстро въехать

Это называется OLE Automation. Мне помогло почитать VBA Help в Excel'e.

FeBO-Sh

Всем привет. Вызвал "SaveAs" метод

Code:

*----------------------------------------------------------------------*
* Сохранение с переименовыванием
  call method of file 'SaveAs'" = saveas NO FLUSH
    exporting
    #1 = filename
    .

но не получается вызвать его параметры "Fileformat", 'Password', ...

Code:

    ActiveWorkbook.SaveAs Filename:="C:\TEMP\999.xls", FileFormat:=xlExcel8, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False

Пытался сделать вот так

Code:

set property of saveas 'FileFormat' = 'xlExcel8' no flush.

но из этого ничего не получилось.
Скиньте какой-нибудь пример, буду признателен.

Удав

1.Используй числовое значение константы xlExcel8 из VBA. :wink:

2.Set Property здесь никак не поможет - FileFormat - это параметр метода. При вызове из ABAP они задаются порядковыми номерами #1, #2 и т.п.

И это... Учите матчасть, об этом Jelena писала пару постов выше.

FeBO-Sh

Спасибо, постараюсь разобраться

Пономарев Артем

К слову о матчасти - про msdn то забыли.
ИМХО, удобнее встроенной справки или саповского хелпа

Silence1

Jelena написала:

Это называется OLE Automation. Мне помогло почитать VBA Help в Excel'e.

Спасибо!

ghost написал:

Code:

SET PROPERTY OF G_CELL 'NumberFormat' = '@' no flush.

как уже вам подсказали

должно работать вот рабочий пример

Code:

...
    when 'C' or 'c'. " Текстовый формат
      set property of excel_cell 'NumberFormat' = '@' no flush.

Не знаю, почему не работает

Jelena

А какой Excel у вас? В 2007 VBA Help выдает такой пример:

Цитата:

Worksheets("Sheet1").Range("A17").NumberFormat = "General"

Может просто Text вместо @ поставить?

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

Выгрузка в Excel OLE2 -?

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