Save Individual Excel Worksheet to File

[Auguy]

I'm working with VFP 9 and Excel 2000. I have the following code working to save an individual worksheet to a file. Is there a better method of doing this?

oWorkSheet = oWorkBook.WorkSheets(StaffWsName)
oNewBook = oExcel.WorkBooks.Add
oWorkSheet.Copy(,oNewBook.Worksheets(3)) && Copy sheet 1 after sheet 3
oExcel.DisplayAlerts = .F.
oNewBook.SaveAs ("C:\App\Temp\" + oWorkSheet.Name)
oNewBook.Close 
oExcel.DisplayAlerts = .T.

The following code seems to be a better approach, but it saved the entire workbook. Will this work with the newer versions of Excel.

oWorkSheet.SaveAs ("C:\App\Temp\" + oWorkSheet.Name)

Always open to suggestions and improvements.

Auguy
Northwest Ohio

 

[white605]

faq 707-2482 in VBA forum addresses the same issue i think.
wjw

This old world keeps spinning round - It's a wonder tall trees ain't layin' down

 

[Auguy]

Thanks. That code is slightly differennt than what I had tested. I will check it out.

Auguy
Northwest Ohio