페이지 트리
메타 데이터의 끝으로 건너뛰기
메타 데이터의 시작으로 이동

이 페이지의 이전 버전을 보고 있습니다. 현재 버전 보기.

현재와 비교 페이지 이력 보기

« 이전 버전 11 다음 »

동작설정 기능을 VBA 코드로 실행 합니다. 


Syntax
Public Function ExecuteAction ( 
	actionName As String,
	param1 As object,
	param2 As object,
	param3 As object,
	param4 As object,
	param5 As object,
	param6 As object,
) As Long


Parameters

actionName

Type: String

실행할 동작설정 명

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

동작설정의 결과 값


Example
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







  • 레이블 없음