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

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
wb.Worksheets("Insident").Activate
' èíöèäåíò 2
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
 
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label9.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label10.Caption = data(3)
'TS
     Me.Label11.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label12.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label13.Caption = data(9)
'âðåìÿ èíöèäåíòà
   Me.Label14.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label15.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label16.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 3
wb.Worksheets("Insident").Activate
j = q
Do While wb.Worksheets("insident").Cells(11).Cells(j).Value <> "Îòêðûò"
    j = j + 1
    If j = w Then
    MsgBox "Îáíàðóæåíî äâà îòêðûòûõ èíöèäåíòà"
    GoTo Value
    End If
Loop
x = j
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label17.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label18.Caption = data(3)
'TS
     Me.Label19.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label20.Caption = data(10)
'Äàòà èíöèäåíòà
     Me.Label21.Caption = data(9)
'âðåìÿ èíöèäåíòà
     Me.Label22.Caption = vrema
'ïðå÷èíà èíöèäåíòà
     Me.Label23.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
     Me.Label24.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 4
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label25.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label26.Caption = data(3)
'TS
     Me.Label27.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label28.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label29.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label30.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label31.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label32.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 5
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label33.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label34.Caption = data(3)
'TS
     Me.Label35.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label36.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label37.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label38.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label39.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label40.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 6
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label41.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label42.Caption = data(3)
'TS
     Me.Label43.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label44.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label45.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label46.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label47.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label48.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 7
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label49.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label50.Caption = data(3)
'TS
    Me.Label51.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label52.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label53.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label54.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label55.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label56.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 8
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label57.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label58.Caption = data(3)
'TS
     Me.Label59.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label60.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label61.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label62.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label63.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label64.Caption = data(1)
End With
q = x + 1
 
 
' èíöèäåíò 9
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label65.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label66.Caption = data(3)
'TS
     Me.Label67.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label68.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label69.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label70.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label71.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label72.Caption = data(1)
End With
q = x + 1
 
' èíöèäåíò 10
 
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
'çàïèñûâàåì äàííûå èç òàáëèöû â ìàññèâ
For i = 1 To 10
    With ActiveSheet
    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.Label73.Caption = data(8)
'Íàïðîâëåíèå
     Me.Label74.Caption = data(3)
'TS
     Me.Label75.Caption = data(4)
'Ïîòðåáèòåëü
     Me.Label76.Caption = data(10)
'Äàòà èíöèäåíòà
    Me.Label77.Caption = data(9)
'âðåìÿ èíöèäåíòà
    Me.Label78.Caption = vrema
'ïðå÷èíà èíöèäåíòà
    Me.Label79.Caption = data(5)
 'êñòî ñäàë  èíöèäåíò
    Me.Label80.Caption = data(1)
End With
 
Value:
 
wb.Close False
XL.Quit
End Sub

объект.Close
Set объект = Nothing