페이지 이력

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

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