varios sheets con ole

[eljota]

el detalle en tu codigo es q pones:

CALL METHOD OF g_xlapp 'Worksheets' = g_newsheet "no flush
EXPORTING #1 = 1 .

cuando deberías poner:

CALL METHOD OF g_xlapp 'Worksheets' = g_newsheet "no flush
EXPORTING #1 = nro_hoja .

donde nro_hoja varia segun la hoja donde quieres trabajar (1 , 2 , 3, ...)

ahora, esto te servira solo para 3 hojas, ya q son las q tiene x defecto un libro excel.

Si necesitas mas hojas, tendrías q declarar al incio:

IF total_paginas > 3.
total_paginas = total_paginas - 3.
CALL METHOD OF APPLICATION 'WorkSheets' = SHEET.
DO total_paginas TIMES.
CALL METHOD OF SHEET 'Add'.
ENDDO.
ENDIF.

o poner set property of application 'SheetsInNewWorkbook' = 5.

salu2