Question

目前我从VBS文件打开Visio并开始工作。但是，每次宏结束时，Visio.exe仍然会在“活动进程”中徘徊。在任务管理器下。

问题是，当我多次运行宏时，我会在那里找到多个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

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

Answer 1

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

vsoDoc.close
appvisio.quit

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

从VBS文件关闭Visio

1 个答案: