>・xlApp.Workbooks
>・xlBook.Worksheets

以下のように書き直してプロセスに残らなくなりましたが、肝心なところが解りません。
やっぱり無理なのでしょうか？
どなたか教えてくださいお願いします。


Dim xlApp As Excel.Application
Dim xlBooks As Excel.Workbooks
Dim xlBook As Excel.Workbook
Dim xlSheets As Excel.Sheets
Dim xlSheet As Excel.Worksheet

            xlApp = CreateObject("Excel.Application")
            xlBooks = xlApp.Workbooks
            xlBook = xlBooks.Open("E:\AAAA.xls")
            xlSheets = xlBook.Worksheets
            xlSheet = DirectCast(xlSheets(1), Excel.Worksheet)


　　　　　　ここが解りません


            On Error Resume Next
            xlApp.DisplayAlerts = False
            xlBook.SaveAs("E:\AAAA.xls")

            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheet)          'xlSheet の解放
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlSheets)         'xlSheets の解放
            xlBook.Close()                'xlBook を閉じる
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBook)           'xlBook の解放
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlBooks)          'xlBooks の解放
            xlApp.Quit()                  'Excelを閉じる 
            System.Runtime.InteropServices.Marshal.ReleaseComObject(xlApp)            'xlApp を解放