Excel не закрывается в модуле доступа vba

Question

Что не так в функции ниже. Excel.exe * 32 не закрывается в диспетчере задач.

Function formatExcel() 
    Dim FileName As String 
    FileName = "C:\This file\queryCentering.xlsx" 
    Set xl = New Excel.Application 
    Set wb = xl.Workbooks.Open(FileName) 
    With wb.Sheets(1) 
     Columns("E:E").Select 
     Selection.NumberFormat = "m/d/yyyy"   

     Columns("C:C").HorizontalAlignment = xlCenter 
     Rows("2:2").Select 
     Range(Selection, Selection.End(xlDown)).Select 
     Selection.RowHeight = 15 

    End With 
    wb.Save 
    wb.Close True 
    Set wb = Nothing 
    xl.Quit 
    Set xl = Nothing 
End Function 

Answer 1

У вас есть With wb.Sheets(1), но на самом деле его не используют.

Также не рекомендуется использовать объект Selection.

Попробуйте (обратите внимание на . перед тем Columns)

With wb.Sheets(1) 
    .Columns("E:E").NumberFormat = "m/d/yyyy"   
    .Columns("C:C").HorizontalAlignment = xlCenter 
End With 

Answer 2

ВЫ ДОЛЖНЫ ЗАКРЫТЬ ВСЕ ОДНОГО ОБЪЕКТА, открываемых с. Андре подчеркнул этот вопрос. Посмотрите внимательно на свой код.