...
정상일 경우 : Object
오류 일경우 : null
6.2 version
| 코드 블럭 | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
Sub CreateDataset()
Dim mxmodule As Object
Dim ds As Object
Set mxmodule = Application.COMAddIns.Item("iMATRIX6.ExcelModule").Object
Set ds = mxmodule.viewmodel.activebook.CreateDataset("DS2", "DS2") 'datasetCode, datasetName
ds.sourcesql = "select * from mtx_user"
ds.ConnectionCode = "MTXRPTY" 'DBMS_CODE
mxmodule.viewmodel.activebook.AddDataset ds
mxmodule.xapi.AddDataset ThisWorkbook, "DS2", "DS2", 1, Range("D1!A1")
End Sub |
7.0 version
| 코드 블럭 | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
Sub add_dataset()
On Error Resume Next
Dim mxModule As Object
Dim ds As Object
Set mxModule = Application.COMAddIns.Item("iMATRIX.ExcelModule").Object
Set ds = mxModule.viewmodel.activebook.CreateDataset("DATASET_CODE1", "DSSET_NAME1") 'datasetCode, datasetName
ds.sourcesql = "SELECT ver, own, data_name, row_cd, col_cd, n_values, c_values FROM mx_epa_doc where wbook_name=:VS_DATASET"
ds.ConnectionCode = "MTXRPTY"
'출력위치
ds.OutputAddress = "'T1'!$C$5"
mxModule.viewmodel.activebook.AddDataset ds
mxModule.xapi.AddDataset ActiveWorkbook, "DATASET_CODE1", "DSSET_NAME1", 1, Sheets("T1").Range("C5")
End Sub |