Visio의 포함 된 Excel (OLE 개체) 업데이트

Question

배열의 내용을 나타내는 Visio의 Excel 시트가 포함되어 있습니다. 이 시트를 채우는 것은 정상적으로 작동하지만 매 크로 작업을 마친 후에 수동으로 (두 번 클릭) 열 때까지 값이 시트에 표시되지 않습니다.

명시 적으로 OLE 개체를 업데이트해야합니까? Visio에서 변경된 사항을 즉시 확인하려면 어떻게해야합니까?

미리 감사드립니다.

코드 : 난 그냥 매크로를 마친 후 파일을 저장하여 그 문제를 '해결'

Dim ws As Object 

Index = ActiveDocument.Pages("Vorlage").Index 

Set acc3 = New Access_Schnittstelle 

Set ws = ActiveDocument.Pages(Index).OLEObjects(1).Object.Sheets(1) 

range1 = XYZ 

ws.Range(ws.Cells(1, 1), ws.Cells(10, 10)) = range1 

Answer 1

.

이 방법은 내 Visio 문서의 모든 포함 된 Excel 개체를 '업데이트'합니다.