word vba无法关闭excel应用程序

如何在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文件。

您需要退出启动的实例。替换

Excel.Application.Quit

与

---

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

当我关闭word时，excel进程也将关闭

更多信息请点击此处：

---

有关如何确保excel实例即使在程序出错时也不会保持打开状态的示例，请参见。excel实例不起作用。退出子系统后，处理EXCEL.EXE仍在运行。

ExcelApp.Quit