페이지 이력

Sub hyperlink()
    Dim mxmodule As Object
    Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object

    Dim param1 As String    '보고서코드
    Dim param2 As String    '시트명
    Dim param3 As Integer   'LEFT
    Dim param4 As Integer   'TOP
    Dim param5 As Integer   'WIDTH
    Dim param6 As Integer   'HEIGHT
    Dim param7 As Integer   '보고서종류 (0:Report, 1:URL)
    Dim param8 As String    '변수 전달할변수명1=전달할변수값1&전달할변수명2=전달할변수값2&전달할변수명3=전달할변수값3
    Dim param9 As Boolean   '자동조회여부 true / false
    Dim param10 As Boolean   '결과수신여부 true / false
    Dim param11 As String    '결과수신셀주소 or 이름정의
    
    param1 = "REP03DAA4E72D1C47CB9367F6723F45C782"
    param2 = ""
    param3 = 50
0	' Left, Top 설정값이 0인경우 팝업위치는 중앙에 위치
    param4 = 100
0	' Left, Top 설정값이 0인경우 팝업위치는 중앙에 위치
    param5 = 300
    param6 = 500
    param7 = 0
    param8 = "VS_PARAM1=param&VS_PARAM2=0123&VS_PARAM3=123&VS_PARAM4=123.123&VS_PARAM5=0123.123&VS_PARAM6=PARAM"
    param9 = False
    param10 = True
    param11 = "VS_RTN"
    
    ret = mxmodule.xapi.ExecuteAction("HyperLink", param1, param2, param3, param4, param5, param6, param7, param8, param9, param10, param11)

    '결과처리
    If ret = False Then
        mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, 0, "i-MATRIX"
    Else
        mxmodule.xapi.MessageBox "정상", 0, "i-MATRIX"
    End If
    
End Sub