Hola Gente !
Cuando genero un listado y pulso el botón de generar XLS me sale el mensaje
"Excel no está instalado", ¿ les ha pasado ?
Gracias !
oExcel := ExcelObj()
CursorArrow()
if oExcel == nil
lExcelInstalled := .f.
MsgAlert( FWString( "Excel not installed" ), FWString( "Alert" ) )
return self
endif
function ExcelObj(); return FWGetOleObject( "Excel.Application", @lExcel )
function FWGetOleObject( cApp, lInstalled ) // @lInstalled
local oObj
if lInstalled != .f.
TRY
oObj := GetActiveObject( cApp )
CATCH
TRY
oObj := CreateObject( cApp )
CATCH
END
END
lInstalled := ( oObj != nil )
endif
return oObj
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: No registered users and 61 guests