CreateObject("Excel.Application"), процесс Excel продолжает висеть в диспетчере, когда это уже не нужно

[Vceznayka]

Уважаемые Модераторы все остальные !
Прошу Вас помогите
Программа срабатывает при активизации формы, с помощью CreateObject("Excel.Application") создается объект. В диспетчере задать создается Excel.exe файл. После выполнения всех процедур необходимо чтобы Excel.exe файл закрылся, так как он мешает для дальнейшей работы. Почему-то wb.Close False XL.Quit не срабатывает и весит в диспетчере задать пока не остановишь весь процесс .

Private Sub CommandButton2_Click()
Unload Me
End Sub

Public Sub CommandButton3_Click()
Close_insident.Show
Unload Me
End Sub
Private Sub Form_Activate()
Dim data(1 To 10) As Variant
Dim vrema As Date
Dim x As Integer
Dim j As Integer
Dim q As Integer
Dim z As Integer
Dim Fail As String
Dim w As Integer
Dim r As Integer
Dim i As Integer
Dim wb As Workbook
Dim XL As Excel.Application
Fail$ = "C:\Temp\new projekt\ewsd.xls"
Set XL = CreateObject("Excel.Application")
Set wb = XL.Workbooks.Open(Fail)


r = 1
Do While wb.Worksheets("Insident").Cells(1). Cells(r).Value <> ""
r = r + 1
Loop
w = r + 1

q = 1
' èíöèäåíò 1
wb.Worksheets("Insident").Activate
j = q
Do While wb.Worksheets("Insident").Cells(11) .Cells(j).Value <> "Îòêðûò"
j = j + 1
If j = w Then
MsgBox "Íåîáíàðóæåíî íå îäíîãî îòêðûòîãî èíöèäåíòà"
wb.Close False
XL.Quit
GoTo Value
End If
Loop
x = j
z = j ' äëÿ çàêðûòèÿ èíöèäåíòà

'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
With wb.Worksheets("Insident")
data(i) = .Cells(x, i).Value
End With
Next

vrema = wb.Worksheets("insident").Cells(2). Cells(j).Value ' ìîæíî çàïèñàòü òàê vrema = data(2)

With ALL_insident
'Íîìåð èíöèäåíòà
Me.Label1.Caption = data(8)
'Íàïðîâëåíèå
Me.Label2.Caption = data(3)
'TS
Me.Label3.Caption = data(4)
'Ïîòðåáèòåëü
Me.Label4.Caption = data(10)
'Äàòà èíöèäåíòà
Me.Label5.Caption = data(9)
'âðåìÿ èíöèäåíòà
Me.Label6.Caption = vrema
'ïðå÷èíà èíöèäåíòà
Me.Label7.Caption = data(5)
'êñòî ñäàë èíöèäåíò
Me.Label8.Caption = data(1)
End With
q = x + 1
.
.
.

Value:

wb.Close False
XL.Quit
End Sub

[Hugo121]

Проверил такой код:

Sub tt()
Dim XL As Excel.Application
Set XL = CreateObject("Excel.Application")
XL.Quit
End Sub

Второй Эксель исчезает не после выполнения строки XL.Quit, а после завершения макроса.

[doober]

по опыту работы с Excel как с COM объектом
1.
set wb=nothing и все остальные созданные ссылки,вплоть до ячейки
Почистить все ссылки
принудительно надо вызвать чистильщика
2
получаете хендл именно этого процесса Excel сразу после создания .
Запоминаете его,когда выполняете XL.Quit,убиваете процесс.
1 вариант почемуто срабанывает не всегда

[Vceznayka]

Уважаемый Hugo121

В коне программы имеются строки

. . .
XL.Quit
End Sub что должно привести к закрытию объекта и макроса, но к сожалению не срабатывает

[Hugo121]

Попробуйте заменить
XL.Quit
на
Set XL = Nothing

У меня так сразу лишний Эксель закрывается.
А XL.Quit вообще не срабатывает.

[Vceznayka]

Спасибо, попробую отпишусь. Но если будут еще идеи то прошу пишите