SAP R/3 форум ABAP консультантов

[pavell]

Не могу понять почему в Excel создается только один лист, цикл проходит 2 раза. Документ создается после первого прохода и больше ничего не происходит. Подскажите, пожалуйста, где может быть ошибка.

INCLUDE ole2incl.
DATA :lh_excel TYPE ole2_object,
lh_mapl TYPE ole2_object,
lh_map TYPE ole2_object,
lh_sheet TYPE ole2_object,
lh_cells TYPE ole2_object,
lh_column TYPE ole2_object.

DATA: lt_val TYPE TABLE OF string.

DATA : lv_row TYPE i,
lv_col TYPE i,
l_path TYPE string.
DATA name TYPE string.
DATA l_list TYPE i.

CREATE OBJECT lh_excel 'EXCEL.APPLICATION'.
SET PROPERTY OF lh_excel 'Visible' = 1.
CALL METHOD OF lh_excel 'WORKBOOKS' = lh_mapl.
CALL METHOD OF lh_mapl 'ADD' = lh_map.

DO 2 TIMES.

l_list = sy-index.

IF l_list = 1.
name = 'List1'.
ELSE.
name = 'List2'.
ENDIF.

CALL METHOD OF lh_excel 'WORKSHEETS' = lh_sheet
EXPORTING #1 = sy-index .
CALL METHOD OF lh_sheet 'ACTIVATE'.
SET PROPERTY OF lh_sheet 'NAME' = name.


CALL METHOD OF lh_sheet 'Cells' = lh_cells
EXPORTING
#1 = 1
#2 = 1.
SET PROPERTY OF lh_cells 'VALUE' = 'test_val'.
CALL METHOD OF lh_excel 'Columns' = lh_column.
CALL METHOD OF lh_column 'Autofit'.

CALL METHOD OF lh_sheet 'SaveAs'
EXPORTING
#1 = 'C:\test.xls'
#2 = 1.
FREE OBJECT lh_sheet.

ENDDO.
FREE OBJECT lh_mapl.
FREE OBJECT lh_excel.
lh_excel-handle = -1.

[Кодер]

Вы получаете листы по sy-index. Он считается с 1, а айтемы в коллекциях экселя нумеруются с 0.

[alezhu]

[pavell]