Question

我有以下For循环。如您所见，我试图关闭特定文件，如果它是打开的。

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

我已尝试将DisplayAlerts设为False以及ObjDoc.close False

我得到的错误是＆＃39; Property Let过程未定义，Property Get过程没有返回对象＆＃39;

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

关闭对象而不保存更改

1 个答案: