VB打开excel对象后，无法正常关闭进程中的Excel对象

    Dim xlsApp As Excel.Application     'Excel应用程序
    Dim xlsBook As Excel.Workbook       '定义工作簿
    Dim xlsSheet As Excel.Worksheet      '定义工作表    Set xlsApp = CreateObject("Excel.Application")  '在进程中，创建EXCEL对象
    xlsApp.DisplayAlerts = False                    '保存时，不弹出对话框    Set xlsBook = xlsApp.Workbooks.Open(FilePath)     '打开工作簿
   
    xlsSheet.Activate
    
    xlsSheet.Rows("1:1").Select
    xlsSheet.Rows("1:1").Delete Shift:=xlUp    '删除第一行
    
    xlsSheet.Columns("H:H").Select
    xlsSheet.Columns("H:H").Insert Shift:=xlToRight       '插入一列    xlsSheet.Range("H1") = "tempColumn"
    
    xlsSheet.Range("H2").Select
    xlsSheet.Range("H2").Formula = "=LEN(G2)"   '输入公式
    
    xlsSheet.Range(xlsSheet.Range("H2"), xlsSheet.Range("H2").End(xlDown)).FillDown
    
    '排序  为什么排序不能关闭
   xlsSheet.Range(xlsSheet.Range("H2"), xlsSheet.Range("H2").End(xlDown)).Sort Key1:=Range("H1"), Order1:=xlDescending, Header:=xlGuess , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, 
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal
        
    
    xlsSheet.Range("a1").Select
        
    xlsBook.Close (True)
    Set xlsBook = Nothing
    Set xlsSheet = Nothing
    Set xlsApp = Nothing
为什么无法正在关闭任务管理器进程中的Excel对象，如果不进行排序，是可以关闭的。请问高手怎样解决，非常感谢！