2017-11-24 1 views

답변

0

예입니다.

그러나 개체를 참조 할 수 있으려면 Excel에 개체 참조를 추가해야합니다.

Excel의 VBA 편집기에서 도구 -> 참조로 이동하여 필요한 모든 Catia 라이브러리를 표시하십시오.

Function GetCatia() As INFITF.Application 
    On Error Resume Next 
    Dim Catia As INFITF.Application 
    Set Catia = GetObject(, "Catia.Application") 
    If Err.Number = 0 Then 
     Set GetCatia = Catia 
    Else 
     Set GetCatia = Nothing 
    End If 
End Function 
:

또한,이 같은 함수가 필요합니다 런타임에 CATIA 응용 프로그램 개체 참조를 얻을 수 있습니다