Question

VB2010以上版本操作excel文件内容，退出后，进程里面总是存留多个excel.exe，哪里编写错了呢？求大神指点

退出之后，进程里面总是存留多个excel.exe，导致电脑变慢，要多次结束进程才行，是不是退出的还不够彻底？添加什么代码呢？求VB大神们指点一二，谢谢！！！
Dim excelApp As New Excel.Application
Dim first_WBook As Excel.Workbook
Dim first_WSheet As Excel.Worksheet
first_WBook = excelApp.Workbooks.Open(filename) '读取Excel内的内容
first_WSheet = first_WBook.ActiveSheet()
读写工作……
ReleaseObject(first_WSheet)
first_WBook.Close(Ture)‘关闭时保存(false:关闭时不保存)
ReleaseObject(first_WBook)
excelApp.DisplayAlerts = False '关闭时不提示保存
excelApp.Quit()
ReleaseObject(excelApp)
GC.Collect()
’ ReleaseObject的意义见下
Private Sub ReleaseObject(ByVal o As Object)
Try
While (System.Runtime.InteropServices.Marshal.ReleaseComObject(o) > 0)
End While
Catch
Finally
o = Nothing
End Try
End Sub
还是没有发现有什么问题，难道是电脑或者excel的事？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

难道不可以直接
excelApp.Quit

Set excelApp = Nothing

吗

追问

一样的，不是么？

追答

不清楚VB2010环境，不过在VBA和VBS中都是可以用Application的Quit方法正常退出的