Power Builder - ayuda urgente por favor

Hola a todo el foro

por favor tengo que pasar datos de un DW a un hoja de excel en ciertas posiciones, y tengo el siguiente codigo.

integer li_rtn
oleobject xlapp_destino,xlsub_destino
xlapp_destino=create oleobject
li_rtn=xlapp_destino.connectToNewObject("excel.application")
IF li_rtn <> 0 THEN
MessageBox('Excel error','No puede conectarse a Excel')
DESTROY xlapp_destino
RETURN 0
END IF
xlapp_destino.application.WorkBooks.Open("c:\prueba.xls") xlapp_destino.application.visible=TRUE
xlsub_destino=xlapp_destino.application.activeworkbook.worksheets[1]
xlsub_destino.cells(5,"A").value="valor"
xlsub_destino.cells(5,"B").value=2

cuando ejecuto este programa me sale error en esta linea

xlapp_destino.application.WorkBooks.Open("c:\prueba.xls")

alguien podria decirme que estoy haciendo mal...

estoy usando power 9.

mil gracias
.

OLEObject ole_object
ole_object = CREATE OLEObject

long li_ret

li_ret=ole_object.ConnectToNewObject( "excel.application" )

if li_ret <> 0 then
messagebox('error')
return 0
end if

ole_object.Application.Visible = false
pointer oldpointer
oldpointer = SetPointer(HourGlass!)

ole_object.Workbooks.Open(aspath)
ole_object.ActiveWorkBook.Sheets("sheet1").Select

ole_object.ActiveSheet.Cells(3,2).value = 'valor'
ole_object.ActiveSheet.Cells(3,3).value = 'valor'

ole_object.ActiveWorkBook.Sheets("sheet1").Select
ole_object.application.workbooks(1).save()
ole_object.application.workbooks(1).close()

ole_object.DisconnectObject()
destroy(ole_object)
setpointer(oldpointer)