How do I properly Add a new sheet in Excel?

[medic]

Hi guys!

Can anybody help me how to properly Add a new sheet in excel? My problem is when I simply issue the Add method without the necessary parameters (which I don't know how to invoke in VFP), the new sheet positions itself before the last sheet in the workbook. What I want is to place the new sheet after the last sheet (rightmost). Here's my sample code:

[tt]
oExcel=createobject('Excel.Application')
oExcel.Visible=.T.
xlfile="myfile.xls"
oExcel.Application.Workbooks.Open(xlfile)
.
.
oExcel.Application.Workbooks(1).Sheets.Add
[/tt]

I need to know how to set the After and Before options. I know how to do this in VB but not in VFP.

 

[ramani]

HI

** How to avoid limiting the records in excel
oExcel = CREATEOBJECT('Excel.Application')
oExcel.Visible = .T.
oExcel.workbooks.add()

*compute number of sheets
lnNumOfSheets=INT(RECCOUNT()/65536) + 1
lnNumOfSheets = lnNumOfSheets - oExcel.Sheets.Count
oExcel.sheets.add(,,lnNumOfSheets)
lnNumOfSheets=oExcel.Sheets.Count

ramani :-9
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[medic]

Thanks for the response ramani!

But I have a question. Why does VFP reports an error

Error 1426: OLE error code 0x800a03ec: Uknown OLE status code.

when I issue the command
[tt]
oExcel.sheets.add(,,10)
[/tt]
Any idea?

Medic