Generacion de excel desde un Aplicacion Engine

Local object &oWorkApp, &oWorkBook, &oWorkSheet;

&SetID = "ASEGS";

&process_instance = AS_RIESGOS_AET.PROCESS_INSTANCE.Value;
&ratreo = GetFile("C:\Users\Administrador\psft\pt\8.53\appserv\prcs\F5392DES\log_output\AE_REPRIES_" | &process_instance | "\rastreo.log", "w", "a", %FilePath_Absolute);

/*
&sFilePath = "C:\Users\Administrador\psft\pt\8.53\appserv\prcs\F5392DES\log_output\template.xlt";
&sFileDestPath = "C:\Users\Administrador\psft\pt\8.53\appserv\prcs\F5392DES\log_output\template_1.xlt";

&ratreo.WriteLine("Begin");
&ratreo.WriteLine("&sFilePath : " | &sFilePath);
&ratreo.WriteLine("&sFileDestPath : " | &sFileDestPath);
*/

&reportPath = GetEnv("PS_HOME") | "\excel\";
&reportOutPutPath = GetEnv("PS_SERVDIR") | "\log_output\AE_REPRIES_" | &process_instance | "\" | &SetID | "-ReporteRiesgos-" | &process_instance | ".xls";

&ratreo.WriteLine("Begin");
&ratreo.WriteLine("&reportPath : " | &reportPath);
&ratreo.WriteLine("&reportOutPutPath : " | &reportOutPutPath);

&oWorkApp = CreateObject("COM", "Excel.Application");
&ratreo.WriteLine("Crea objeto : " | &oWorkApp);
rem &oWorkApp.DisplayAlerts = "false";
ObjectSetProperty(&oWorkApp, "Visible", True);
&oWorkBook = ObjectGetProperty(&oWorkApp, "Workbooks");
&ratreo.WriteLine("Obtiene prop_obje : " | &oWorkBook);
&TemplatePath = &reportPath | "template.xlt";

&oWorkBook.Open(&TemplatePath);
rem &ratreo.WriteLine("&TemplatePath :" | &TemplatePath);
rem &oWorkBook.Open("C:\Users\DES_MAYRAA\Desktop\template.xlt");

&ratreo.WriteLine("Template abierto");
&oWorkSheet = &oWorkApp.Worksheets("Sheet1");
&oWorkSheet.Range("A1").Value = "Last Name";
&oWorkSheet.Range("B1").Value = "First Name";
&oWorkSheet.Range("A1:B1").Font.Bold = True;
&oWorkSheet.Range("A2").Value = "Doe";
&oWorkSheet.Range("B2").Value = "John";
&oWorkSheet.Hyperlinks("B2").Value = "www.google.com.ec";
&ratreo.WriteLine("Despues de valores");
&oWorkApp.ActiveWorkbook.SaveAs(&reportOutPutPath);
&oWorkApp.ActiveWorkBook.Save();
&oWorkApp.ActiveWorkBook.Close();
&oWorkApp.Quit();
&ratreo.WriteLine("Fin");