使用以下VB代码操作Excel以后，发现进程中Excel并未关闭：
    Dim xlApp     As Object     'Excel.Application
    Dim xlBook     As Object       'Excel.Workbook
    Dim xlSheet     As Object       'Excel.Worksheet
    Screen.MousePointer = vbHourglass
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1)
    ......
    xlApp.Visible = True
    Screen.MousePointer = vbDefault
    xlApp.Quit
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing
代码执行后，显示Excel并提示是否保存，无论选择保存与否，当Excel关闭后，打开任务管理器发现Excel仍存在，请教各位大大，如何解决？

请教楼上，你的代码是用来检测和关闭Excel的吧？那跟下面的代码作用有什么不同吗？
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 '--------------------------------------------------------------------
Private Sub Form_Load()

 
  Dim Handle     As Long           '   窗口句柄
  Handle = FindWindow("XLMAIN", vbNullString)             '   获得窗口句柄
  If Handle = 0 Then
  MsgBox "Excel没启动"
  Else
   If MsgBox("当前有活动Excel工作薄,是否将其关闭?", vbInformation + vbYesNo, "温馨提示") = vbYes Then
  Shell "taskkill /f /im excel.exe"
  Else
  End If
  End If
End Sub