Question

我想知道是否有人之前遇到过此事。当我通过VBA创建Access（2013）的实例时，即使我在子例程中的任何位置没有任何Application.quit语句，Access应用程序也会在宏完成运行时退出。有什么想法吗？

Sub Test()
    Dim axApp As Access.Application
    Set axApp = CreateObject("Access.Application")
    axApp.Visible = True
End Sub

Answer 1

新的Access应用程序实例由 axApp 对象变量创建并引用。

在您的程序结束时， axApp 超出范围并被销毁。由于它的销毁，它引用的Access应用程序实例已关闭。

如果您希望在VBA过程完成后继续使用该Access实例，请将其.UserControl属性设置为True。

Sub Test()
    Dim axApp As Access.Application
    Set axApp = CreateObject("Access.Application")
    axApp.Visible = True
    axApp.UserControl = True
End Sub

为什么在宏运行完毕后从VBA打开时，Access实例会退出？

1 个答案: