По екселевскому макросу составить код в абапе

Склеротик

Помогите создать код в абапе по макросу который копирует лист и вставляет его перед другим листом в EXCEL. Меня что то замкнуло.

Привожу макрос.
Sheets("Лист2").Select
Sheets("Лист2").Copy Before:=Sheets(3)

РМщик

Немножко по-другому,
но нет временит смотреть

может, поможет

Code:

  CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.
  SET PROPERTY OF H_EXCEL  'Visible' = 0.
  CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.
  CALL METHOD OF H_MAPL 'Open'
    EXPORTING
    #1 = FILENAME.

  CALL METHOD OF H_EXCEL 'Worksheets' = H_SHEET
    EXPORTING
    #1 = 'Лист1'.
  CALL METHOD OF H_SHEET 'Activate'.

  CALL METHOD OF H_SHEET 'CELLS' = H_F.
  CALL METHOD OF H_F 'SELECT'.
  CALL METHOD OF H_F 'COPY'.

  CALL METHOD OF H_EXCEL 'SHEETS' = H_ZL.
  CALL METHOD OF H_ZL 'SELECT'.

  CALL METHOD OF H_EXCEL 'Worksheets' = H_SHEET
      EXPORTING
       #1 = 'Лист3'.
  CALL METHOD OF H_SHEET 'Activate'.
  CALL METHOD OF H_ZL 'ADD'.

  CALL METHOD OF H_EXCEL 'Worksheets' = H_SHEET
      EXPORTING
       #1 = 'Лист4'.
  CALL METHOD OF H_SHEET 'Activate'.
  CALL METHOD OF H_SHEET 'CELLS' = H_F.
  CALL METHOD OF H_F 'SELECT'.
  CALL METHOD OF H_SHEET 'PASTE'.

  SET PROPERTY OF H_EXCEL  'Visible' = 1.

  FREE OBJECT H_EXCEL.
  FREE OBJECT H_ZL.
  FREE OBJECT H_MAPL.
  FREE OBJECT H_SHEET.

Voffka

А можно просто вызвать этот макрос.
:shock:

Code:

FORM excel_run_macro
  USING
    i_name.

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

  IF sy-subrc NE 0.
*   Не удалось вызвать указанную функцию/макрос
    sy-subrc = 4.
    EXIT.
  ENDIF.

ENDFORM.                    " excel_run_macro

РМщик

Voffka написал:

А можно просто вызвать этот макрос.
:shock:

Я думаю автор темы это умеет

Просто лучше работать без макросов... ведь у юзеров, например, могут быть по-разному настроена безопасность...

Voffka

РМщик написал(а):

Я думаю автор темы это умеет

Склеротик написал:

Меня что то замкнуло.

Мало ли, может действительно замкнуло. :shock:

Склеротик

нет, с запуском макросов не хотелось бы, безопасность настроена на персоналках у всех может быть по разному.

CALL METHOD OF sheets 'SELECT' exporting #1 = 'Лист2'.
код возврата = 0.
CALL METHOD OF sheets 'COPY' exporting #1 = 'Лист3'.
выдает код 2,

РМщик

ну так попробуй сначала добавить лист ADD,
а потом - COPY ... см выше :wink:

Гость

Лист то добавится а копирование то не идет.
Добавлять лист можно и spreadsheet-add_sheet.
И чего не добавили метод по копированию листа в перечень методов.

Bully

Voffka написал:

А можно просто вызвать этот макрос.
:shock:

Можно всяко, но проще всего поиском воспользоваться: http://sapboard.ru/forum/viewtopic.php?t=4326

Склеротик

В коде приведенном в сообщении есть ошибка.
GET PROPERTY вместо CALL METHOD. Разобрался:)
Теперь вот как подавить диалого при удалении листа?
delete_sheet и через ОЛЕ метод выпрыгивает предупреждение что на удалямых листах могут быть данные.

РМщик

Склеротик написал:

В коде приведенном в сообщении есть ошибка.
GET PROPERTY вместо CALL METHOD. Разобрался:)
Теперь вот как подавить диалого при удалении листа?
delete_sheet и через ОЛЕ метод выпрыгивает предупреждение что на удалямых листах могут быть данные.

set property of application 'DisplayAlerts' = 'false'.

Гость

Это я поставил раньше, но эффект тот же.

Гость

снимаю вопрос. Вместо удаления можно просто скрыть ненужные листы, установив свойство листа Visible = 0.

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

По екселевскому макросу составить код в абапе

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