使用VBA在Visio中打开embedded的Excel
我有一个VBA的小问题。 我有大约800个带embedded式Excel的Visio文件，如果您双击，将在单独的应用程序中打开。
Excel文件中的代码在Visio2007 / Excel2007中存在一些错误/问题。 我已经编写了用于更新Excel VBA代码的代码。
我的问题是，我必须让代码运行时，embedded的Excel打开，任何button被按下之前！
我只需要知道如何用代码打开embedded式Excel！ （我没有find任何地方..）
打开embedded式Excel文档（如果需要显示）应该与以下VBA代码一起使用
For i = 1 To ActiveDocument.OLEObjects.Count If Left(ActiveDocument.OLEObjects(i).ProgID, 11) = "Excel.Sheet" Then ActiveDocument.OLEObjects(i).Object.Activate ActiveDocument.OLEObjects(i).Object.Application.Visible = True ActiveDocument.OLEObjects(i).Object.Windows(1).Visible = True End If Next i