Корректное закрытие файла xl и выгрузка из памяти ПК - VB

Формулировка задачи:

Доброго дня всем! подскажите пожалуйста, какая строка практичнее будет и эффективнее для закрытия файла xl, что бы не висел в памяти ПК: задача такова, что бы закрывать конкретную книгу но не всегда это получает:

Public XL As Object
Set XL = CreateObject("Excel.Application")
'-----------
XL.ActiveWorkbook.Close  'в некоторых случаях не работает
'-----------
XL.Quit  'работает через раз
'-----------
 Set XL = Nothing 'закрывает файл, но не выгружает из памяти
'----------
 Shell ("taskkill /F /IM excel.exe") 'эта вещь закрывает все и убивает все процессы xl
'---------
Dim ff As Integer     'данный вариант  не рассматривался так как был содран откуда то
ff = CreateObject("Excel.Application")
Close #ff

Решение задачи: «Корректное закрытие файла xl и выгрузка из памяти ПК»

textual
                            Листинг программы 
                        

                            Public Type ExTableType
    oExcel As Object
    oBook As Object
    oSheet As Object
    Status As Byte  'признак изменения данных
    Line As Integer  ' последняя строка после которой можно заносить данные
End Type
 
With ExTable
        Set .oExcel = CreateObject("Excel.Application")  'указатель на объект
        Set .oBook = .oExcel.Workbooks.Open(MainExcelFile)  'указатель на книгу
        Set .oSheet = .oBook.Worksheets(LMonth)  'указатель на лист
        .Status = 1
    End With
 
'код при закрытии формы:
With ExTable
        If (.Status And 2) = 2 Then .oBook.Save
        
        .oExcel.Workbooks.Close
        .oExcel.Quit
        Set .oExcel = Nothing
    End With
                        