특정 동작설정 기능을 VBA 코드로 실행 합니다.
...
| 코드 블럭 | ||||
|---|---|---|---|---|
| ||||
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 | 동작명 | 비고 |
|---|---|---|
| HyperLink | HyperLink 동작 (보고서 팝업, 시트 이동에 사용) | Viewer 에서만 작동함. |
| Clear | Clear 동작 | |
| CopyPaste | 복사 붙여넣기 | |
| SaveData | 데이터 저장 |
param1~6 |
|---|
Type: object
동작설정에 필요한 매개변수
| ActionName | param1 | param2 | param3 | param4 | param5 | param6 | ||||
|---|---|---|---|---|---|---|---|---|---|---|
| HyperLink | ReportCode <string> | SheetCode <string> | Left <int> | Top <int> | Width <int> | Height <int> | 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
동작설정의 결과 값
| 코드 블럭 | ||||||
|---|---|---|---|---|---|---|
| ||||||
Sub HyperLinkActionTest()
Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.ExcelModule").Object
'보고서 팝업 띄우기 (HyperLink action)
'param 정의 : 원본보고서변수명=popup 보고서의변수명;...
ret = mxmodule.xapi.ExecuteAction("HyperLink", "REP23C43B503AC84352BE3260E25D5FF658", "", 0, 0, 1024, 768)
"VS_SOURCE1=VS_VAR1;VN_SOURCE1=VN_VAR2")
'결과처리
If ret <>= False Then
mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation0, "i-MATRIX"
End If
End Sub
Sub ClearActionTest()
Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.ExcelModule").Object
'지정된 영역 지우기 (Clear action)
ret = mxmodule.xapi.ExecuteAction("Clear", "A1:D1")
If ret <>= False Then
mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, vbInformation0, "i-MATRIX"
End If
End Sub
Sub CopyPasteActionTest()
Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.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, vbInformation0, "i-MATRIX"
End If
End Sub
Sub SaveDataActionTest()
Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
'데이터 저장(SaveData action)
ret = mxmodule.xapi.ExecuteAction("SaveData", "PLAN_1")
'결과처리
If ret = True Then
'정상처리
mxmodule.xapi.MessageBox "Success " & mxmodule.xapi.ResponseData, 0, "i-MATRIX"
Else
'오류처리
mxmodule.xapi.MessageBox "Error " & mxmodule.xapi.LastErrorMessage, 0, "i-MATRIX"
End If
End Sub
|