Power Builder - mover hojas excel

Hola, ya he intentado de mil maneras pero nada me resulta, alguien sabe como puedo copiar una hoja de un libro excel a otro en codigo de powerbuilder, tengo que hacerlo a través de un objeto OLE, pero la sintaxis para esto no se cual es y ya he intentado con varias pero no hay caso. Gracias

Ejemplo de copiar un rango del celdas de la Hoja 1 a la Hoja 3 en Excel:

OLEObject excel
Integer li_RetValue, li_rtn
Boolean lb_sheet_rtn
Long ll_cnt

excel = create OLEObject

li_rtn = excel.ConnectToNewObject("excel.application")
IF li_rtn <> 0 THEN
MessageBox('Excel error','No puede conectarse a Excel')
DESTROY excel
RETURN 0
END IF

excel.WorkBooks.Open( "c:\miarchivo.xls" )
excel.Application.Visible = TRUE

//Activar la Hoja 1 y seleccionar el rango
lb_sheet_rtn = excel.worksheets(1).Activate
// Copiar al clipboard
excel.Worksheets(1).Range("A1:E5000").Copy

//Activar la hoja 3 y pegar
lb_sheet_rtn = excel.worksheets(3).Activate
excel.Worksheets(3).Paste

//Resetear el Clipboard. Es decir, quitar la selección de la Hoja 1
excel.Worksheets(1).Range("A10000:A10000").Copy

//Otras operaciones posibles a utilizar:
//excel.Application.Save
//excel.Application.Quit

excel.DisConnectObject()
DESTROY excel
//-------------------Fin-------------------

al final del dia me resulto el copiado de celdas de un archivo excel a otras celdas de otro archivo excel, para esto creo dos objetos OLE diferente, pero al ejecutar la sentencia excel.ActiveSheet.Paste me envia un mensaje de error de formato, no he encontrado la forma de capturarlo y que no lo muestre, tú sabes como evitarlo????????

Por si acaso, trabajo con Win XP; PB 9 y Office 2003, y al copiar las celdas de la hoha1 del archivo 1 a la hoja 3 del archivo 2, no arroja ningún error. Todo sale bien.

Efectivamente se trabaja con dos OLE Diferente. Resumido sería lo siguiente:

excel = create OLEObject

li_rtn = excel.ConnectToNewObject("excel.application")
excel.WorkBooks.Open( "c:\miarchivo1.xls" )
excel.Application.Visible = TRUE

//Activar la Hoja 1 y copiar
lb_sheet_rtn = excel.worksheets(1).Activate
excel.Worksheets(1).Range("A1:E5000").Copy
excel.DisConnectObject()
DESTROY excel
//-------------------Fin-------------------

//Ahora se crea la conexión 2:
excel2 = create OLEObject

li_rtn2 = excel2.ConnectToNewObject("excel.application")

excel2.WorkBooks.Open( "c:\miarchivo2.xls" )
excel2.Application.Visible = TRUE

//Activar la Hoja 3 y pegar
lb_sheet_rtn2 = excel2.worksheets(3).Activate
excel2.Worksheets(3).Paste

excel2.DisConnectObject()
DESTROY excel2
//-------------------Fin-------------------

Esta es otra solucion, lo bacan de esto es que duplica la hoja...



Saludos Cofrades...