본문 바로가기
  • Welcome!
VBA For Creo

Creo VBA 시작 코드

by ToolBOX01 2023. 1. 14.
반응형

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(명시적 선언 사용하기)

엑셀 VBA에는 option Explicit(명시적 선언)이라는 구문이 있다. 요약해서 설명하자면, 다른 프로그래밍 언어와 마찬가지로 변수를 사용하려면 변수명이 무엇인지, 변수의 타입이 무엇인지에 대한 정

ybworld.tistory.com

 

>> "Application.Enableevents " 참고

 

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

내가 죽으면 술통 밑에 묻어 줘... 운이 좋으면 밑둥이 샐지도 몰라... 현재 전남 나주 근무 중

blog.naver.com

 

VBA Start Tempate.xlsm
0.01MB