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

使用VBA在Visio中打开嵌入式Excel

1 个答案: