Visio : DOS 공유 위반 (오류 1532)

Question

그래서 지금 당장 혼란 스럽습니다. 파란색 코드에서 "DOS Sharing violation"오류가 발생합니다.

는 그 내 문서를 저장하려고하고 있다고,하지만 난 그냥 열려, 때문에 이상한.

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"메서드를 코딩하기 위해이 메서드를 2 일 연속 사용했습니다. 아무런 문제가 없었습니다. 둘째, 메서드를 3 번 ​​말하면 3 번째로 모든 것이 완벽하게 작동합니다.

어디에서 문제 일 수 있습니까?

Answer 1

@Shmukko 팁을 주셔서 감사합니다. 실제로 오류를주는 windows 수비수입니다.

Windows 10의 경우 해결 방법은 다음과 같습니다. 설정으로 이동하여 업데이트 & 보안 -> Windows Defender를 선택합니다. 파일 확장명 제외를 선택하고 Visio의 파일 형식을 입력하십시오.

그게 전부입니다.