如何在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来结束进程

objWorkBook.Close (True) '关闭工作簿并保存所做的修改

objExcelFile.Quit

Set objWorkBook = Nothing

Set objImportSheet1 = Nothing

Set objExcelFile = Nothing

Application.DisplayAlerts

=

False‘不出现提示框，就是无需确认

Application.Visible

=

True’文件可见

WorkBook.Close‘这步不可省

，这步是关闭工作表

Application.Quit’这步不可少，这步是退出程序

’以下是释放变量（内存）。注意顺序：

Set

Sheet

=

Nothing

Set

WorkBook

=

Nothing

Set

Application

=

Nothing

供参考。

---