페이지 이력

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