Frank:
> *-- Create a reference to an Excel OLE object
> XLApp = CREATEOBJECT('Excel.Application')
>
> *-- Create a reference to a workbook
> oMyXLWorkbook = XLApp.Application.Workbooks.Add
>
> *-- Create a reference to a worksheet
> XLSheet = oMyXLWorkbook.Worksheets.Add
>
> with xlApp
> *-- I only need one sheet, so throw away
> *-- the others
> .DisplayAlerts = .F.
> .ActiveWorkBook.Worksheets(3).Delete
> .ActiveWorkBook.Worksheets(2).DeleteYou can simplify your setup code to:
XLApp = CREATEOBJECT("Excel.Application")
XLApp.SheetsInNewWorkbook = 1
XLApp.Visible = .t.
oMyXLWorkbook = XLApp.Workbooks.Add()
...
...HTH
