FUNCTION MAIN()
xresult:= FExcell_Install(oExcell)
IF VALTYPE(xResult) = "L" .AND. !xResult
MsgStop('Error: Excel no instalado.' )
RETURN
ENDIF
*
oExcell:WorkBooks:Add()
oBook:= oExcell:Get( "ActiveWorkBook")
oSheet := oExcell:Get( "ActiveSheet" )
*
oExcell:DisplayAlerts:= .F.
oSheet:Cells(nFila,nCol):Font:Size:= nFontSize
oSheet:Cells(nFila,nCol):Font:Bold:= .T.
oSheet:Cells(nFila,nCol):Borders(07):LineStyle := 1 // Left
oSheet:Cells(nFila,nCol):Borders(08):LineStyle := 1 // Top
oSheet:Cells(nFila,nCol):Borders(09):LineStyle := 1 // Bottom
oSheet:Cells(nFila,nCol):Borders(10):LineStyle := 1 // Right
oSheet:Cells(nFila,nCol):Value:= "MyValue"
oExcell:DisplayAlerts:= .T.
RETURN
*----------------------------------------------------------------------------------
*-----------------------------------------------------------------------------------
FUNCTION FExcell_Install()
Local bHandler := errorblock( { | x | break( x ) } )
Local lExiste:= .T.
BEGIN SEQUENCE
oExcell:= TOleAuto():New( 'Excel.Application' )
RECOVER USING oError
MsgStop( 'Error: Excel no instalado.' )
lexiste:= .F.
END SEQUENCE
ERRORBLOCK( bHandler )
RETURN(lExiste)