VB程序中调用Excel之后无法自动退出进程

Question

程序如下，现在奇怪的是，同样是下面这段程序，在两台电脑上运行的结果却不一样，两台电脑均是Win7系统，安装的也都是office2007，但是一台上面Excel.exe进程可以正常自动关闭，一台无法关闭，并且在关闭程序之后该进程依然存在，请指导。
Private Sub Form_Load()

Pathstr = App.Path & "\"
Dim iExcel As Excel.Application
Dim iBook As Excel.Workbook
Dim iSheet As Excel.Worksheet

Set iExcel = CreateObject("Excel.Application")
Set iBook = iExcel.Workbooks.Open(Pathstr & "Setting.xls")
Set iSheet = iBook.Worksheets("Sheet1")

Set iSheet = Nothing
iBook.Close
Set iBook = Nothing
iExcel.Quit
Set iExcel = Nothing

End Sub

Answer 1

我也遇到过这种问题，没深入研究过，猜测是VB在打开EXCEL时你开启过其他EXCEL

你可以试试用Timer + API来监控并结束EXCEL进程，这样做的弊端是程序会关闭掉机器打开的所有EXCEL追问

没啊，整个过程就打开一个VB，其他什么都没动，就盯着任务管理器，很奇怪诶。而且我觉得用其他方法比如API或者杀进程之类的就偏离问题点了，还是找出问题根源比较好

Answer 2

Quit之前把提示关闭，Quit之后再打开

Answer 3

没啥问题呀。追问

确实我也觉得没问题，只是在另外一台电脑上就不写了诶

追答

有可能是office的问题，修复一下看看。