Ms access Microsoft Access 2016：退出Excel.Application

我正试图将数据从Access数据库导出到Excel工作簿。一切正常，只是导出完成后我无法让Excel正常关闭。当我在代码执行后打开任务管理器时，Microsoft Excel的实例总是列在后台进程下。我阅读了各种评论，认为问题可能在于，在创建初始Excel.Application对象和尝试关闭它之间的某个地方，正在秘密创建另一个Excel.Application。因此，我将代码缩减到只创建和关闭Excel.Application对象的程度。还是一样的结果

这是我的代码：

Sub testexcel()

    Dim xl As Excel.Application

    Set xl = Excel.Application

    xl.Quit

    Set xl = Nothing

End Sub

---

如果您能给我一些建议，告诉我需要修改什么才能让Excel正常关闭，我将不胜感激。谢谢

您声明您正在“尝试从我的Access数据库导出数据”-但您没有说明如何导出--有多种方法可以做到这一点

在Access中，功能区的“外部”选项卡具有“导出”功能。如果在屏幕上打开数据集表或查询，然后使用此功能手动执行导出，则Excel应用程序根本不应打开。您是否已通过此方法检查了健全性？

请改用CreateObjectExcel.Application

子测试Xcel Dim-xl作为Excel.Application Set xl=CreateObjectExcel.Application “停止”，以便您可以在任务管理器/流程资源管理器中看到EXCEL.EXE xl.退出 设置xl=无 ”“它不见了 端接头

---

这段代码最终对我起了作用：

Sub testexcel()

   Dim xl as Excel.Application

   Set xl = New Excel.Application

   'Code

   xl.Quit

   Set xl = Nothing

End Sub

显然，“New”关键字造成了所有的不同。

类似的可能重复也可能有用