FiveTech Software tech support forums

|Harbour docs|http://www.fivetechsoft.com/harbour-docs/harbour-reference-guide.htm|

|Harbour & xHarbour builds|https://bitbucket.org/fivetech/harbour-xharbour-builds/downloads/|

===== FiveWin for [x]Harbour (FWH) ===== [[fivewin_documentation|English]] [[fivewin_documentacion|Español]] [[fivewin_documentacao|Português]]

===== FiveWin for Pocket PC (FWPPC) ===== [[fwppc_documentation|English]] [[fwppc_documentacion|Español]]

===== FiveLinux (FLH) ===== [[fivelinux_documentation|English]] [[fivelinux_documentacion|Español]]

===== FiveMac (FMC) ===== [[fivemac_documentation|English]] [[fivemac_documentacion|Español]]

Code: Select all  Expand view

#include "Fivewin.ch"


#define xlMaximized -4137


FUNCTION MAIN()

    LOCAL oExcel := CREATEOBJECT( "Excel.Application" )

    LOCAL oSheet

    oExcel:WorkBooks:Add()

    oExcel:Sheets:Add()

    oSheet = oExcel:ActiveSheet

    oSheet:Name = "New Sheet"

    oExcel:Sheets( 2 ):Select()

//    oExcel:Sheets( "New Sheet" ):Select()

    oExcel:WindowState = xlMaximized

    oExcel:Visible = .T.

    SETFOREGROUNDWINDOW( oExcel:hWnd )

    RETURN NIL