我使用以下方法来列出EXCEL中的表名到Combo1中,表名是列出来了,但是Command4_Click过程中没有关闭EXCEL,进程中每操作一次就会多一个EXCEL

Question

我使用以下方法来列出EXCEL中的表名到Combo1中,表名是列出来了,但是Command4_Click过程中没有关闭EXCEL,进程中每操作一次就会多一个EXCEL.exe????Private Sub Command4_Click()
Dim xlApp As New excel.Application
Dim xlBook As excel.Workbook
Dim xlSheet As excel.Worksheet
Set xlBook = xlApp.Workbooks.Open(App.Path & "\123.xls")
xlApp.Visible = False
Dim aaa As String
For Each xlSheet In excel.Worksheets
   Combo1.AddItem xlSheet.Name
Next xlSheetSet xlApp = Nothing  '"交还控制给Excel
Set xlBook = Nothing
Set xlSheet = NothingEnd Sub

Answer 1

Set xlApp = Nothing  '"交还控制给Excel
Set xlBook = Nothing
Set xlSheet = Nothing这个不能算是吗?