varios sheets con ole

[carlosalcala]

Cambia de trabajo preguntón!

[carlosalcala]

Prueba con esto, a mi me funciona en un report normalito que solo hace esto

REPORT Z_PRUEBAS_OLE .

INCLUDE ole2incl.
DATA: application TYPE ole2_object,
workbook TYPE ole2_object,
sheet TYPE ole2_object,
cells TYPE ole2_object.

START-OF-SELECTION.

data: val type i value 8,
nh type i value 1.

create object application 'Excel.application'.
set property of application 'Visible' = 1.
call method of application 'Workbooks' = workbook.

set property of application 'SheetsInNewWorkbook' = 5.

call method of workbook 'Add'.
call method of application 'Worksheets' = sheet
exporting #1 = 2.

call method of workbook 'ADD'.

CALL METHOD OF application 'CELLS' = CELLs EXPORTING #1 = 2 #2 = 2.
SET PROPERTY OF CELLs 'VALUE' = val.
free object cells.
free object sheet.

do 4 times.

add 1 to nh.

call method of application 'Worksheets' = sheet
exporting #1 = nh.

CALL METHOD OF sheet 'Activate'.
CALL METHOD OF application 'CELLS' = CELLs
EXPORTING #1 = 3 #2 = 3.
SET PROPERTY OF CELLs 'VALUE' = 14.
free object cells.
enddo.