Creo VBA 실행 에러 메세지 처리

■ 소스 코드

Creo에 Open된 파일 이름을 표시 합니다.  

Sub Model_Nanme()
	
    On Error GoTo RunError
    Dim asynconn As New pfcls.CCpfcAsyncConnection
    Dim conn As pfcls.IpfcAsyncConnection
    Dim session As pfcls.IpfcBaseSession
    Dim Model As pfcls.IpfcModel
   
    Set conn = asynconn.Connect("", "", ".", 5)
    'Get the current session
    Set session = conn.session
    Set Model = session.CurrentModel
    Range("C2").Value = Model.Filename
   
    'Disconnect with Creo
    conn.Disconnect (2)
    
Exit Sub    
    
    RunError:
    If Err.Number <> 0 Then
        MsgBox "Process Failed : Unknown error occurred." + Chr(13) + _
                "Error No: " + CStr(Err.Number) + Chr(13) + _
                "Error: " + Err.Description, vbCritical, "Error"
        If Not conn Is Nothing Then
            If conn.IsRunning Then
                conn.Disconnect (2)
            End If
        End If
    End If

End Sub

 

Sub 프로시저()
		On Error GoTo Test // 에러 상황이면 test 레이블로 이동
			실행내용 // 에러가 아니니 실행하고
		Exit Sub // 프로시저 종료

		Test: // 레이블 뒤에 : 세미콜론을 붙여서 레이블임을 표시한다
			실행내용
End Sub

 

 

■ Creo  VBA 오류 코드

현재 활성화된 모델이 없습니다
Creo가 실행 되지 않았습니다

 

 

 

VBA On Error 활용하기, 에러처리양식, Try-Catch-Finally, 사용자 정의 함수 만들기

 

 

▶ Connecting to a Creo Parametric Process 코드 분석

Connecting to a Creo Parametric Process