Доброго всем дня!!!

У меня возник такой вопрос, необходимо выгрузить данные в Excel.
Но это не проблема, проблема состоит в том, что мне необходимо выгрузить около 40 разных файлов. Это у меня тоже получаеться.

Проблема состоит в том что все эти 40 выгрузок висят в процессах и вырубать их приходиться руками.

Что типа oExcelObject.Quit() не получаеться.

sele q1
scan
if msub_sname<>sub_sname
if msub_sname<>'Ðàéíî íå âûáðàí'
oExcelSheet.Range("A1").Select
oExcelWorkbook.SaveAs("t:\Documents\200610\test\Ñâåðêà 9 ìåñ. Ðåäàêöèÿ Ñáûòà ("+alltrim(msub_sname)+").xls")

Вот вроде все стоит, но процессы остаються

oExcelSheet.Application.Quit
oExcelObject.Quit()
release oExcelObject

mNomer=2
endif
msub_sname=sub_sname
oExcelObject = CREATEOBJECT('Excel.Application')
oExcelWorkbook = oExcelObject.Application.Workbooks.Open("c:\energo\sverka.xlt")
oActiveExcelSheet = oExcelWorkbook.Worksheets("otchet").Activate
oExcelSheet = oExcelWorkbook.Worksheets("otchet")
WAIT WINDOW "Ïîäîæäèòå, èäåò ôîðìèðîâàíèå ôàéëà " + CHR(13) + "" + CHR(13) + ;
"Èìïîðò äàííûõ â Excel." + CHR(13) + "" NOWAIT
oExcelSheet.Rows("1:1").Font.Name = "Arial"
oExcelSheet.Rows("1:1").Font.FontStyle = "Bold"
oExcelSheet.Rows("1:1").Font.Size = 8
oExcelSheet.Columns(3).WrapText = .T.
oExcelSheet.Columns(4).WrapText = .T.
oExcelSheet.Columns(5).WrapText = .T.
oExcelSheet.Columns(6).WrapText = .T.
oExcelSheet.Columns(8).WrapText = .T.
oExcelSheet.Columns(8).NumberFormat = "@"
oExcelSheet.Columns(10).NumberFormat = "#,##0.00"
oExcelSheet.Columns(11).NumberFormat = "#,##0.00"
oExcelSheet.Columns(12).NumberFormat = "#,##0.000"
oExcelSheet.Columns(13).NumberFormat = "#,##0"
endif
oExcelSheet.Cells(mNomer,1).value=nd
oExcelSheet.Cells(mNomer,2).value=point_id
oExcelSheet.Cells(mNomer,3).value=np
oExcelSheet.Cells(mNomer,4).value=nampris
oExcelSheet.Cells(mNomer,5).value=mPriz1
oExcelSheet.Cells(mNomer,6).value=mPriz2
oExcelSheet.Cells(mNomer,7).value=tarif_tens
oExcelSheet.Cells(mNomer,8).value=zav_nom
oExcelSheet.Cells(mNomer,9).value=kft_t
oExcelSheet.Cells(mNomer,10).value=pokazs
oExcelSheet.Cells(mNomer,11).value=pokazn
oExcelSheet.Cells(mNomer,12).value=procent
oExcelSheet.Cells(mNomer,13).value=vsekvt2
mNomer=mNomer+1
endscan

Спасибо наконец-то разобрался:

oExcelWorkbook=.NULL.
oActiveExcelSheet=.NULL.
oExcelSheet=.NULL.
oExcelObject.Quit

Теперь все работает!