페이지 트리

버전 비교

  • 이 줄이 추가되었습니다.
  • 이 줄이 삭제되었습니다.
  • 서식이 변경되었습니다.

...

Name동작명비고
HyperLinkHyperLink 동작 (보고서 팝업, 시트 이동에 사용)Viewer 에서만 작동함.
ClearClear 동작
CopyPaste복사 붙여넣기
SaveData 데이터 저장 
param1~6

Type: object

동작설정에 필요한 매개변수

ActionNameparam1param2param3param4param5param6
HyperLink

ReportCode

<string>

SheetCode

<string>

params

Target 보고서에 파라메터 전달

<string>

원본이름정의=target이름정의;source2=target2...




Clear

Range

<string>






CopyPaste

From

<string>

To

<string>

CopyValue

<bool>

CopyFormat

<bool>



SaveData 

 PlanName

<string>

     


Return Value

Type:  object

...

코드 블럭
languagevb
titleExample
linenumberstrue
Sub HyperLinkActionTest()
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    
    
    '보고서 팝업 띄우기 (HyperLink action)
    'param 정의 : 원본보고서변수명=popup 보고서의변수명;...
    ret = mxmodule.xapi.ExecuteAction("HyperLink", "REP23C43B503AC84352BE3260E25D5FF658", "", "VS_SOURCE1=VS_VAR1;VN_SOURCE1=VN_VAR2")
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
    
End Sub



Sub ClearActionTest()
    
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    
    
    '지정된 영역 지우기 (Clear action)
    ret = mxmodule.xapi.ExecuteAction("Clear", "A1:D1")
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
    
End Sub




Sub CopyPasteActionTest()
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object

    '값 복사 (CopyPaste action)
    ret = mxmodule.xapi.ExecuteAction("CopyPaste", "A1:D6", "F1", True, True)
    
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
End Sub






Sub SaveDataActionTest()
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object

    '데이터 저장(SaveData action)
    ret = mxmodule.xapi.ExecuteAction("SaveData", "PLAN_1")
    
    If ret <> False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    End If
End Sub