SET EXACT ON

RELEASE ALL LIKE o*
PUBLIC oExcel
SET STEP ON
CLEAR ALL
USE c:\dev\tmpNearly01 IN 0
USE c:\dev\tmpNearly02 IN 0
USE c:\dev\tmpNearly03 IN 0
USE c:\dev\tmpNearly04 IN 0
USE c:\dev\tmpNearly05 IN 0
USE c:\dev\tmpNearly06 IN 0
USE c:\dev\tmpNearly07 IN 0
USE c:\dev\tmpNearly08 IN 0
USE c:\dev\tmpNearly09 IN 0
USE c:\dev\tmpNearly10 IN 0
USE c:\dev\tmpNearly11 IN 0
USE c:\dev\tmpNearly12 IN 0

* Create the Spreadsheet object.
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .T.
oWorkBook = oExcel.WorkBooks.Add()
oSheet = oWorkBook.ActiveSheet && <--- This is when the dialog opens to ask me to save the file.