Экспорт и висящий excel.exe

[Polaris]

Доброго времени суток уважаемые форумчане..
столкнулся с такой проблемой.. искал ответ - не нашел.

есть необходимость экспорта данных из БД в Excel.

экспортирую - сохраняю на диск - открываю с диска - все хорошо.
но при закрытии документа процесс excel.exe продолжает висеть в диспетчере задач.


как мне открыть из кода xls файл, что бы при закрытии xls документа excel.exe из диспетчера тоже закрывался...?

После того, как закроешь программу excel.exe сам закрывается

[gjghjc]

покажи код которым выгружаешь в Эксель.
Скорее всего ты не делаешь Application.Quit после выгрузки данных

[Polaris]

Dim aEx As Excel.Application
Dim bEx As Excel.Workbook
Dim sEx As Excel.Worksheet


Set aEx = New Excel.Application
Set bEx = aEx.Workbooks.Add
Set sEx = bEx.Worksheets(1)

aEx.DisplayAlerts = False
aEx.Visible = False

bEx.Activate
sEx.Activate




(Макрос)

'сохраняем
bEx.SaveAs "C:\sprav\sprav" + tdata + ".xls"

'закрываем документ
Set tdate = Nothing
rsprint.Close
Set rsprint = Nothing
bEx.Close
aEx.Quit


Set sEx = Nothing
Set bEx = Nothing
Set aEx = Nothing

' открываем документ

Set aEx = GetObject(, "Excel.Application")

aEx.Visible = True
ChDir "C:\sprav"
Workbooks.Open FileName:="C:\sprav\sprav" + tdata + ".xls"

[gjghjc]

Попробуй вместо этого

Код: Выделить всё

' открываем документ

Set aEx = GetObject(, "Excel.Application")

aEx.Visible = True
ChDir "C:\sprav"
Workbooks.Open FileName:="C:\sprav\sprav" + tdata + ".xls"

воспользоваться ShellExecute

[Polaris]

Всем спасибо! Особенно Igor123
проблема решилась через использование таймера

[gjghjc]

А можешь показать код?