关闭对象而不保存更改

Question

我有下面的 For 循环。如您所见，我正在尝试关闭打开的特定文件。

下面的设置询问我是否要保存文件。如何在不保存文件的情况下关闭它？

我试过将 DisplayAlerts 设置为 False 以及 ObjDoc.close False

我收到的错误是 'Property Let procedure not defined and Property Get procedure did not return an object'

Sub MacroExample()
' Define local variables
Dim objVisio
Dim objDoc
 Dim blnVisioCreated

' Initialize Vision application reference variable
Set objVisio = Nothing

' Assume Visio is already running, then try and get a reference to it
blnVisioCreated = False
On Error Resume Next
Set objVisio = GetObject(, "Visio.Application")
On Error GoTo 0

' If Visio was not running already load it and remember that we created it
If objVisio Is Nothing Then
   Set objVisio = CreateObject("Visio.InvisibleApp")
   blnVisioCreated = True
End If

' See if out drawing is already open, if so close it
For Each objDoc In objVisio.Documents
  If objDoc.Name = "Drawing1.vsd" Then
     'objVisio.DisplayAlerts = False
      objDoc.alertrespons = 0
     objDoc.Close False
     Exit For
  End If
Next

Answer 1

谢谢大家！

我在收盘前用过这条线

objVisio.AlertResponse = vbNo
objDoc.Close

关闭对象而不保存更改

Close an object without saving changes

vbscript

visio