ohne vorhandene Visio-Datei schließen

Question

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

    Set vsoDoc = AppVisio.Documents.Open("PathName\Drawing1.vsd") 

Hallo zu speichern,

Ich habe den obigen Code-Block eine Datei zu öffnen (das funktioniert). Wenn diese Datei jedoch bereits geöffnet ist, möchte ich, dass sie automatisch geschlossen wird, ohne die Änderungen zu speichern.

Leider sehr geschätzt wird, ich könnte keinen Code wie

AppVisio.Documents.Close ("PathName\Drawing1.vsd") 

Alle anderen Optionen finden zu schließen zwingen, die Datei geöffnet werden soll.

Answer 1

Dim vsoDoc 

Sie es als ein impliziteVariant deklariert haben - dies wäre gleichbedeutend:

Dim vsoDoc As Variant 

Und wenn Sie sofort einen Haltepunkt platzieren gehen die Set vsoDoc = Anweisung, auf die unmittelbare Scheibe (Strg + G) und geben Sie

?TypeName(vsoDoc) 

Sie werden sehen, dass es Document gedruckt wird. Daher können Sie es mit einem Document Typ deklarieren statt:

Dim vsoDoc As Document 

Und dann, wenn Sie diese vsoDoc schließen möchten, arbeiten Sie mit dass Objekt und rufen seine Close Methode:

Set vsoDoc = AppVisio.Documents.Open("PathName\Drawing1.vsd") 
'do stuff... 
vsoDoc.Close 

That vsoDoc Variable ist Ihr Dokumentobjekt. Wenn Sie es in As Document deklarieren, erhalten Sie IntelliSense/AutoComplete. Wenn Sie also den Punkt in vsoDoc. eingeben, wird im Editor ein Dropdown-Menü mit allen Mitgliedern des Dokuments angezeigt.

Wenn Sie bereits in Visio sind, ist es nicht notwendig, alles zu spät zu binden. Sie bereits haben einen Verweis auf das Visio-Objektmodell. Eine frühe Bindung macht es viel einfacher zu wissen, um welche Typen es sich handelt und um welche Mitglieder es sich handelt.

Answer 2

Die Methode, die Sie suchen für einen Teil des Document-Objekt (nicht Dokumente) Click Here to see the Document Close Method