Не могу закрыть excel из VB

[sanya]

Ни чего не могу понять, в пошаговом режиме excel закрывается прекрасно, но при запуске программы exel висит открытым. Подскажите где ошибка

Set Ex = CreateObject("Excel.Application")
Ex.Workbooks.Open путь & "1.xls"
.
.
Ex.Workbooks("1.xls").SaveAs FileName: путь & "2.xls"
Ex.ActiveWorkbook.Close
Ex.Workbooks.Open путь & "11.xls"
.
.
Ex.Workbooks("11.xls").Close SaveChanges:=True
Ex.Quit
Set Ex = Nothing

[alibek]

Скорее всего файл еще не успевает сохраниться к тому моменту, когда ты его закрываешь. Попробуй отключить фоновое сохранение (правда я не помню, как). Или сделай что-то сроде этого:

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

Ex.Workbooks("11.xls").Save
Do Until Ex.Workbooks("11.xls").Saved
DoEvents
Loop
Ex.Workbooks("11.xls").Close SaveChanges:=False
Ex.Quit

[Vitaly1]

Sanya- к сожалению метод application.Quit не во все версиях Excel работает.

[sanya]

Задержка времени результата не приносит. Может есть другой способ закрыть excel? И еще, как закрыть программу с помощью API?

[RayShade]

Вот такой нехитрой функцией.



Private Declare Function TerminateProcess Lib "kernel32" Alias "TerminateProcess" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long

[sanya]

Тысяча извинений, но я не знаю API, но насколько я понимаю мне необходимо найти этот открытый процесс, а как?