从 VBS 文件关闭 Visio

Question

目前我从 VBS 文件打开 Visio 并开始工作。但是，每次宏结束时，Visio.exe仍然在任务管理器下的'Active Processes'中徘徊。

问题是，当我多次运行宏时，我得到多个 Visio.exe 只是坐在那里。

如何有效地关闭 Visio 文件（从而终止进程）？

这是我的代码：

Sub MacroExample()

    Dim AppVisio 
    Set AppVisio = CreateObject("visio.InvisibleApp")
    Dim vsoDoc

    Set vsoDoc = AppVisio.Documents.Open("filepath\file.vsd")

    vsoDoc.ExecuteLine ("MacroName")
    Set vsoDoc = Nothing
    set AppVisio = nothing
    vsoDoc.close
    appvisio.quit
End Sub

这两行没有按预期工作？（根据我的互联网搜索，我遇到的所有文档都在谈论类似的代码。我认为这两个会结束这个过程）

    vsoDoc.close
    appvisio.quit

任何方向正确的 help/pointers 都表示赞赏！（注意此处和 Visio 内部的所有代码都按预期工作）

Answer 1

这个问题的答案是重新排列代码

vsoDoc.close
appvisio.quit

'put this at the end instead of beginning   
Set vsoDoc = Nothing
set AppVisio = nothing

从 VBS 文件关闭 Visio

Closing Visio from VBS file

vba

vbscript

visio