vba - 使用 VBA 在 Visio 中打开嵌入的 Excel

Question

我在使用 VBA 时遇到了一些问题。我有大约 800 个带有嵌入 Excel 的 Visio 文件，如果双击这些文件，就会在单独的应用程序中打开。

Excel 文件中的代码在 Visio2007/Excel2007 中存在一些错误/问题。我已经编写了更新 Excel VBA 代码的代码。

我的问题是，在打开嵌入的 Excel 时，在按下任何按钮之前，我必须让代码运行!

我只需要知道如何用代码打开嵌入的Excel! (我没有在任何地方找到它..)

Answer 1

打开嵌入的 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