单词vba不会关闭excel应用程序

Question

如何在word vba中完全关闭excel应用程序？

我的代码：

Dim ExcelApp As Object, ExcelBook As Object
Set ExcelApp = CreateObject("excel.Application")
Set ExcelBook = ExcelApp.Workbooks.Open(ActiveDocument.Path & "\data.xls")
'ExcelApp.Visible = True/False
ExcelApp.DisplayAlerts = False

'something with ExcelBook, just editing cells

ExcelBook.Close savechanges:=True
Excel.Application.Quit
Set ExcelBook = Nothing
Set ExcelApp = Nothing

当我打开taskmanager时，仍然会运行EXCEL。问题是，我需要多次运行宏而不是我的data.xls - excel文件可以是只读的。

Answer 1

您需要退出已启动的实例。取代

Excel.Application.Quit

与

ExcelApp.Quit

Answer 2

我找出了为什么会遇到这个问题。在运行使用自动化控制Microsoft Excel的代码时，Visual Basic在您结束程序之前不会发布引用。

当我关闭单词时，excel进程也会关闭。

更多信息：

http://support.microsoft.com/kb/178510/en-us