...
(※ Close 후 결과수신 설정시, 출력되는 창은 Modal로 출력 되어 Excel 작업이 불가능합니다.)
<매트릭스 설정예시2 - XAPI (6.2.2000200.19 버전 이상 지원)>
| 코드 블럭 | ||||
|---|---|---|---|---|
| ||||
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 = 0 ' Left, Top 설정값이 0인경우 팝업위치는 중앙에 위치
param4 = 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 |
...