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