Visio: нарушение доступа к DOS (ошибка 1532)

Question

Так что я действительно запутался прямо сейчас. Из моего кода я получаю сообщение об ошибке «Нарушение доступа к DOS».

Это странно, потому что, он говорит, что пытается сохранить свой документ, но я просто хочу, чтобы открыть его.

Это мой код:

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», и у меня не было никаких проблем. И, во-вторых, если я позвоню, скажем, три раза, то в третий раз все прекрасно работает ...

Где может быть проблема?

Answer 1

Спасибо @Shmukko за подсказку, это действительно защитник окон, который дает мне ошибку.

Для Windows 10 решение: выберите «Настройки» и выберите «Обновить» & security -> Защитник Windows. Выберите «Исключить расширение файла» и введите тип файла для Visio.

Все.