Excel 97

[DIKI]

Проблема с Excel 97 если я выполняю дважды этот код,т.е. если в Excel который я создал добавляю WorkBook, а потом закрываю одну книгу он спрашивает типа сохранить я нажимаю нет и Excel с оставшейся рабочей книгой закрывается при этом остается висеть в памяти

Dim ExApp As Excel.Application
Dim ExWrb As Excel.Workbook
Dim ExWsh As Excel.Worksheet

Dim hwnd As Long
On Error Resume Next
Set ExApp = GetObject(, "Excel.Application") ' Пытаемся получить первый уже существующий объект приложение Excel
If Err.Number <> 0 Then
Err.Clear
Set ExApp = CreateObject("Excel.Application")
End If
hwnd = FindWindow("XLMAIN", 0)
If hwnd <> 0 Then ' 0 means Excel not running.
SetWindowPos hwnd, 0, -15000, 0, 0, 0, SWP_NOSIZE + SWP_NOZORDER
End If
If ExApp Is Nothing Then Err.Raise 10001, , "Ошибка при создании объекта Excel"
Set ExWrb = ExApp.Workbooks.Add
Set ExWsh = ExWrb.Sheets.Item(1)
ExWsh.Name = "Выборка "
ExWsh.Range("A1:B1").Value = "Тест"
ExApp.Visible = True
SetWindowPos hwnd, HWND_TOP, 0, 0, 0, 0, SWP_SHOWWINDOW + SWP_NOSIZE

Set ExWrb = Nothing
Set ExWsh = Nothing
Set ExApp = Nothing

[RayShade]

Ну вообще-то есть такой метод как .Quit Я бы его вызывал перед Set ExApp = Nothing