求助：在access中用DoCmd.TransferSpreadsheet导入excel文件后怎么释放excel在系统

liveevil

在access用DoCmd.TransferSpreadsheet多次导入excel文件后，在windows进程中会发现有多个excel进程在运行。怎样才可以释放这些内存占用，杀死进程？

Set xlApp = CreateObject("Excel.Application")

   Set xlApp = New Excel.Application

   xlApp.Visible = False

   Set xlBook = xlApp.Workbooks.Open(fileName)

For Each xlSheet In xlBook.Worksheets

      sheetName = xlSheet.Name

      range = sheetName & "!a1:g100"

      DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, sheetName, fileName, True, range

      range = ""

   Next xlSheet

Set xlSheet = Nothing

   xlBook.Close (False)

   'SaveChanges:=False

   Set xlBook = Nothing

   xlApp.Quit

   Set xlApp = Nothing

另外DoCmd.TransferSpreadsheet可以导入整张sheet而不指定range吗？

海狸先生

导入并不需要这么麻烦（下面就是可以导入整个的）    DoCmd.TransferSpreadsheet acImport, 9, "tblDR_得分", paths & "\得分导入.xls", True