Замена символов в Excel

Abp

Необходимо в Excel заменить ggg на 555, причем ggg может стоять не всегда в конкретной ячейке и не в одном месте, может встретиться в любой ячейке листа, помогите преложить макрос на Abap

Cells.Replace What:="ggg", Replacement:="555", LookAt:=xlPart,
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False,
ReplaceFormat:=False

dian

Тебе точно надо перекладывать макрос на Абап?
Гораздо проще создать его в Экселе, а из абапа просто вызывать методом I_OI_DOCUMENT_PROXY->EXECUTE_MACRO.

Code:

data: document TYPE REF TO i_oi_document_proxy.
....

    call method document->EXECUTE_MACRO
        exporting
          macro_string = 'Module1.Change'
          param1 = 'ggg'
          param2 = '555'
          param_count = 2.

chumpa

dian написал:

Тебе точно надо перекладывать макрос на Абап?
Гораздо проще создать его в Экселе, а из абапа просто вызывать методом I_OI_DOCUMENT_PROXY->EXECUTE_MACRO.

Code:

data: document TYPE REF TO i_oi_document_proxy.
....

    call method document->EXECUTE_MACRO
        exporting
          macro_string = 'Module1.Change'
          param1 = 'ggg'
          param2 = '555'
          param_count = 2.

возможно, дело в антивирусах и безопасности?

Boger

Сам недавно мучался с этим, проблема была в том что вместо констант
xlPart надо использовать '0', '1' ...

Code:

    CALL METHOD OF g_worksheet 'Cells' = g_cell.

    CALL METHOD OF g_cell 'Replace'
      EXPORTING
      #1 = 'ggg'
      #2 = '555'
      #3 = '0'.

Остальные параметры можно опустить.

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

Замена символов в Excel

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