lcOldError= On('Error')
On Error oApp=.NULL.
oApp = GetOBJECT(,'Excel.Application')
On Error &lcOldError
if ISNULL(oApp)
oApp=CreateOBJECT('Excel.Application')
endif
oApp.WorkBooks.Add
*********
........

*********
oApp.Visible=.t.
oApp.saveAs(alltrim(thisform.My_edit1.value)+".xls")

На SaveAs ругается.
Я открыла посмотреть, а когда закрываю через "Х" файл исчезает.
Подскажите, люди добрые.

Да. Спасибо. Пошло.
Вот только сохраняется в \Мои документы\
А когда прописываю путь в SaveAs - не понимает, кричит.
Пробую вначале перед пормированием Excel поставить set defa to ' куда надо', но она все равно в \Мои документы\ открываетеся.

Как ты написал - так работает. а вот так
oBook.saveAs(ADDBS(SYS(5)+SYS(2003))+'\tmp\'+'k'+alltrim(thisform.My_edit1.value)+".xls")
Нет.
просто папку пририсовала - и говорит, что не правильный путь, хотя эту папку заранее завела.

Вот так идет

ldirold=ADDBS(SYS(5)+SYS(2003))
set defa to ldirold+'excel\'
oBook.saveAs(ADDBS(SYS(5)+SYS(2003))+'k'+alltrim(thisform.My_edit1.value)+".xls")
set defa to (ldirold)