Creo VBA 시작 코드

Creo VBA를 시작 하는 코드 입니다.  매번 프로그램을 개발 때마다 새로운 이름으로 Save As 하여 사용 합니다.

Option Explicit

Sub Main()

	Application.EnableEvents = False
	On Error GoTo RunError
    
    	Dim asynconn As New pfcls.CCpfcAsyncConnection
    	Dim conn As pfcls.IpfcAsyncConnection: Set conn = asynconn.Connect("", "", ".", 5)
    	Dim oSession As pfcls.IpfcBaseSession: Set oSession = conn.session
    	Dim oModel As IpfcModel: Set oModel = oSession.CurrentModel
    	Dim oSolid As IpfcSolid: Set oSolid = oModel
    
    
    
    
    
    
    
    
    
    	conn.Disconnect (2)
    
    	'Cleanup
    	Set asynconn = Nothing
   		Set conn = Nothing
    	Set oSession = Nothing
    	Set oModel = Nothing


    
	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

 

>> "Option Explicit" 참고

[엑셀/VBA] Option Explicit(명시적 선언 사용하기)

 

>> "Application.Enableevents " 참고

사람사는 이야기, 제가 살아가는 얘기 아주 쪼금씩 : 네이버 블로그

 

VBA Start Tempate.xlsm

0.01MB

 

---