Так тоже не помогает?
Нет, вы меня не поняли, код что я приводил выше - "вроде как рабочий".
Set oExcelApp = oFactory.ExcelWorkSheet.Parent.Parent
oExcelApp.Visible = True
Этот способ запускает приложение эксель с нужной книгой. Но если использовать этот метод, то после сохранения и закрытия документа, эксель все еще остается в трее, тогда как в пользовательском интерфейсе этого не происходит. То есть это код не является аналогией.
Следствие:
Если сначала закрыть приложение эксель, а потом снова попытаться обратиться тем же способом, у меня через раз падает инвентор (то бишь ни разу не надежно):
Sub otkrit_excel_3()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oCD As AssemblyComponentDefinition
Set oCD = oDoc.ComponentDefinition
Dim oFactory As iAssemblyFactory
Set oFactory = oCD.iAssemblyFactory
Dim oExcelApp As Object
Set oExcelApp = oFactory.ExcelWorkSheet.Parent.Parent
oExcelApp.Save
oExcelApp.Quit
Set oExcelApp = oFactory.ExcelWorkSheet.Parent.Parent
oExcelApp.Visible = True
End Sub
П.С. Поэтому обращение с помощью родительских связей, на мой взгляд, это какой-то кривой способ, да еще и диспетчер задач чистить надо. Вот и пытаюсь найти более простой метод.