Tengo un "problemilla" al visualizar un archivo excel, utilizando ActiveX, que NO me ocurre cuando lanzo la aplicación desde el IDE, pero SI me ocurre cuando lanzo la aplicación directamente, abriendo el .exe.
Código: Seleccionar todo
METHOD Button1Click( oSender ) CLASS TForm1
Local oExcel, n, i, cCol1
/* Conectamos con Excel y lo mostramos. */
TRY
oExcel := GetActiveObject( "Excel.Application" )
CATCH
TRY
oExcel := CreateObject( "Excel.Application" )
CATCH
MsgAlert( "ERROR! Excel not avialable. [" + Ole2TxtError()+ "]" )
RETURN Nil
END
END
/* Creamos una hoja nueva. */
TRY
oExcel:WorkBooks():Add()
CATCH
MsgAlert( "ERROR! Excel worksheet not available. [" + Ole2TxtError()+ "]" )
RETURN Nil
END
oExcel:Visible := .T. //Aqui muestro el Excel.
oExcel:ActiveWindow() //He probado, pero no se si es que no funciona o deberia de hacerse con otra propiedad/evento
RETURN Nil
Pues, cuando lo lanzo directamente, con el .exe, esa ventana Excel se queda detrás de mi aplicación, y no se hace activa.
Estoy utilizando Xailer 6.0.4
¿Alguien podria probar o decirme si estoy haciendo algo mal, o alguna manera de "activar" o poner el foco en la ventana del Excel ???
Gracias por vuestro tiempo.