從VBS文件

關閉的Visio目前我從VBS文件打開Visio並做工作。然而，每一個在宏結束時，Visio.exe未消在任務管理器下的「活動進程」。從VBS文件

問題是，當我運行宏多次，我得到多個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是如預期運行）

來源

2016-11-09 Dingo

我想保持'.Close'和'.Quit'呼叫，但儘量在最後添加'Set appVisio = Nothing'，以防萬一。 –

重新排列代碼工作！非常感謝！！ – Dingo

回答這個問題是重新排列的代碼

vsoDoc.close 
appvisio.quit 

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

來源

2016-11-15 17:54:26 Dingo

回答

相關問題