페이지 이력

'=================================================
' i-AUD Server Script 호출 예제
'   i-AUD Designer 에서 Server Script 작성 후 해당 Script 를 호출 할수 있습니다.
'=================================================
Sub GetServerScript()
    Dim mxmodule As Object
    Dim svc As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
   
    'Server Script 호출 준비
    Set svc = mxmodule.xapi.GetServerScript()
  
    'parameter 추가
    svc.AddParam "VS_NAME", Range("VS_NAME").Valuetest"
     
    'i-AUD 보고서 code, ServerScript Code
    svc.Execute "REP379AD55AC6E447CFA3AB9577E043CC4DREP71C687A01A0C46D48826C256B113F0B9", "@SVC@SCRIPT_OK"
     
End Sub