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

我在VBA中遇到了一些問題。我有大約800個帶有嵌入式Excel的Visio文件，如果您雙擊，將在單獨的應用程序中打開。使用VBA在Visio中打開嵌入式Excel

Excel文件中的代碼在Visio2007/Excel2007中存在一些錯誤/問題。我已經編寫了用於更新Excel VBA代碼的代碼。

我的問題是我必須讓代碼在打開嵌入式Excel時按下任何按鈕之前運行！

我只需要知道如何用代碼打開嵌入式Excel！（我沒有找到任何地方..）

2012-07-05 Moosli

打開嵌入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

工作

來源

2012-07-05 16:08:07

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

回答

相關問題