How to add append new Sheet in Excel?

[hua]

Guys, by default Excel creates 3 empty sheets, how do I add 2 more to the end of them so I end with Sheet1, Sheet2, Sheet3, Sheet4 and Sheet5 in sequence?

TIA

[Enrico Maria Giordano]

A sample:

Code: Select all  Expand view

FUNCTION MAIN()

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

    LOCAL oSheet

    oExcel:Workbooks:Add()

    oSheet = oExcel:Sheets:Add( oExcel:Sheets[ oExcel:Sheets:Count ] )

    oExcel:Sheets[ oExcel:Sheets:Count ]:Move( oSheet )

    oSheet:Name = "Added"

    oExcel:Visible = .T.

    RETURN NIL

EMG

[hua]

Thanks for the prompt response Enrico. Your solution has helped me.

Out of curiosity, can't we pass a parameter to :add() to indicate where the new sheet should be added?

[Enrico Maria Giordano]

No that I'm aware of. From the MSDN:

http://msdn.microsoft.com/en-us/library/office/ff839847.aspx

EMG

[hua]

Based on the link you've given (thanks!) and some tutorial here I try coding this way,

Code: Select all  Expand view

   oExcel:Sheets:Add(, oExcel:Sheets[ oExcel:Sheets:Count() ], 2 )

Seems to generate runtime error on my PC though. Couldn't get it to work

[hua]

Found an old post of yours Enrico - https://groups.google.com/forum/?fromgr ... %5B1-25%5D

Is OleDefaultArg() available in both Harbour and xHarbour?

[Enrico Maria Giordano]

xHarbour, for sure. Harbour, don't know, sorry.

EMG

[hua]

No problem. Thanks for your help and time