2

VBAに少し問題があります。Excelが埋め込まれた約800のVisioファイルがあり、ダブルクリックすると別のアプリケーションで開きます。

Excelファイルのコードには、Visio2007/Excel2007でいくつかのエラー/問題があります。ExcelVBAコードを更新するためのコードをすでに作成しました。

私の問題は、埋め込みExcelを開いたときに、ボタンを押す前にコードを実行する必要があることです。

埋め込まれたExcelをコードで開く方法を知る必要があります！（どこにも見つかりませんでした。）

4

1 に答える 1

2

埋め込まれた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-05T16:08:07.737 に答える