Корректное закрытие файла 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

Public ExTable As ExTableType
Public oExcel As Object
Public oBook As Object
Public oSheet As Object
 Public Status As Byte

With ExTable
        Set .oExcel = CreateObject("Excel.Application")  'указатель на объект
        Set .oBook = .oExcel.Workbooks.Open(MainExcelFile)  'указатель на книгу
        Set .oSheet = .oBook.Worksheets(LMonth)  'указатель на лист
        .Status = 1
End With

Private Sub Command1_Click()
'закрытие книги
    With ExTable
        If (Status And 2) = 2 Then .oBook.Save
        'Status = Status Or 2 'переменную статус изменять надо только если вы изменяли данные в книге,
        'верхняя строка .oBook.Save позволит сохранить изменения
        'oExcel.Workbooks.Close  'РУГАЕТСЯ ВОТ НА ЭТУ СТРОКУ
        .oBook.Close 'закомментируем верхнюю строку и попробуем закрыть книгу другим способом
        .oExcel.Quit
        Set .oExcel = Nothing
    End With
End Sub

Private Sub Form_Load()   'подскажите как провести проверку открыт ли файл, а это то до чего я догадался "неправильно"
If BookOpen(App.Path & "\DOC.xlsx") = True Then
    MsgBox "Файл с таким именем в папке существует!", 64, "ИНФОРМАЦИЯ!"
  With ExTable
        If (.Status And 2) = 2 Then .oBook.Save
        .Status = .Status Or 2
        .oBook.Close
       .oExcel.Quit
        Set .oExcel = Nothing
End With
 End If
End Sub

Private Sub Form_Load()
If BookOpen(App.Path & "\DOC.xlsx") = True Then
        MsgBox "Книга открыта и будет закрыта", vbInformation, "сообщение"
     'закрываем ее
With ExTable
        If (.Status And 2) = 2 Then .oBook.Save
        .Status = .Status Or 2
        .oBook.Close   'ругается на строку!
       .oExcel.Quit
        Set .oExcel = Nothing
     End With
          End If
End Sub

 .oBook.Close   'ругается на строку!

 .oBook.Close

Private Sub Text11()
    With ExTable
        Set .oExcel = CreateObject("Excel.Application")
        Set .oBook = .oExcel.workbooks.Open("c:\doc.xlsx")
        Set .oSheet = .oBook.Worksheets("BD")  'browse all pages
        .Status = 1
        .oExcel.Visible = True
    End With
    MsgBox ExTable.oBook.ReadOnly
    ExTable.oBook.Close
    ExTable.oExcel.Quit
End Sub

Set .oSheet = .oBook.Worksheets("BD")

.oSheet.Range.SELECTION.HorizontalAlignment = "4"