페이지 이력

//openParam이 없는 경우
Sub ReportOpen()
	Dim mxmodule As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    mxmodule.xapi.InvokeMethod "Open", "REP1C8FEDFF5E4946F19A553091D76145C0,true,false,"
End Sub


//openParam이 있는 경우
Sub ReportOpen()
	Dim mxmodule As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    mxmodule.xapi.InvokeMethod "Open", "REP1C8FEDFF5E4946F19A553091D76145C0,true,false,VS_YYYYMM=201906&VS_NAME=BIMATRIX"
End Sub


// GlobalParam 추가
Sub AddGlobal()
	Dim mxmodule As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    mxmodule.xapi.InvokeMethod "AddGlobalParams", "VS_YYYYMM,201906"
    mxmodule.xapi.InvokeMethod "AddGlobalParams", "VS_NAME,BIMATRIX"
End Sub


Sub OpenEx()
    Dim mxmodule As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
    mxmodule.xapi.InvokeMethod "OpenEx", "REP1C8FEDFF5E4946F19A553091D76145C0,2,VS_YYYYMM=201906&VS_NAME=BIMATRIX"
End Sub