在Visio中更新嵌入式Excel（OLE对象）

Question

我在Visio中有一个表示数组内容的嵌入式Excel工作表。 填写此工作表可以正常工作，但在完成宏之后，工作表中没有可见的值，直到我手动打开（双击）ebedded 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对象。