페이지 이력

Sub MultiCRUDTest()

    Set mxmodule = Application.COMAddIns.Item("iMATRIX6iMATRIX.ExcelModule").Object
    mxmodule.xapi.MultiCRUD ThisWorkbook, "U1;U2"

    If mxmodule.xapi.LastErrorCode <> 0 Then
        mxmodule.xapi.MessageBox mxmodule.xapi.LastErrorMessage, vbInformation, "i-MATRIX"
    Else
        mxmodule.xapi.MessageBox "Complete." & vbCrLf & "Info" & mxmodule.xapi.ResponseData, vbInformation, "i-MATRIX"
    End If

End Sub