VBA를 사용하는 Visio의 포함 된 Excel 열기

Question

VBA에 약간 문제가 있습니다. 임베디드 Excel이있는 약 800 개의 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 

와 함께 작동합니다