Visio：DOS共享冲突（错误1532）

所以我现在很困惑。突然间，我的代码得到了错误“DOS共享冲突”。Visio：DOS共享冲突（错误1532）

Image with the Error

这很奇怪，因为它说，正试图拯救我的文档，但我只是想打开它。

这是我的代码：

Public Sub ReadActivity() 
Dim vsoDocument As Visio.Document 
Dim vsoPage As Visio.Page 


Set vsoDocument = Documents.Open("C:\Users\Philip\Dropbox\Test\Aktivität0.vsdx") 
Set vsoPage = vsoDocument.Pages(1) 

SvgExport (ActiveDocument.path & "\files_and_images\" & Left(ActiveDocument.name, (InStrRev(ActiveDocument.name, ".", -1, vbTextCompare) - 1)) & ".svg") 
CreateCodeActivity 

vsoDocument.Close 
End Sub

所以你可能会看到代码很简单没有什么特别的是怎么回事。在调用该方法之前，我正在使用此编码我的文本文件：VBA : save a file with UTF-8 without BOM

而且有两件事很奇怪。首先，我使用这个方法连续两天编写“CreateCodeActivity”方法，我没有任何问题。第二，如果我打电话的方法，让我们说三次，第三次一切正常......

这可能是什么问题？

来源

2017-02-09 Philipp Mochine

您是否使用Kaspersky AntiVir？ https://forum.kaspersky.com/index.php?s=2932812927f84277db86e585f190a644&showtopic=360718&pid=2646952&st=0&#entry2646952 – Shmukko

不，但好点。也许这是Windows防护程序...我会检查出来 –

谢谢@Shmukko提示，这真的是Windows Defender给我的错误。

对于Windows 10的解决方案是：转到设置并选择更新&安全 - > Windows Defender。选择排除文件扩展名并输入Visio的文件类型。

就是这样。

来源

2017-02-09 12:44:53

Visio：DOS共享冲突（错误1532）

回答

相关问题