如何在vb中完全关闭excel进程

Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
Set xlBook = xlApp.Workbooks.Open(App.Path & "\委托书.xls") '打开已经存在的EXCEL工件簿文件
xlApp.Visible = IIf(fg = 0, True, False) '设置EXCEL对象可见（或不可见）预览设置为可见
Set xlSheet = xlBook.Worksheets("sheet1") '设置活动工作表
......
xlApp.DisplayAlerts = False '不提示是否覆盖
xlBook.SaveAs App.Path & "\检验委托书\" & Trim(w.C_hpzl.Text) & Trim(w.T_hphm.Text) & "_" & a.jylsh & ".xls" '保存当前发票信息

xlBook.Close (False) '关闭工作簿
xlApp.Visible = False
xlApp.Quit '结束EXCEL对象

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing '释放xlApp对象
VB代码自己创建的是这样关闭的
其他的需要调用系统API来结束进程

shell "cmd.exe /c taskkill.exe /f /im excel.exe"