...
| 코드 블럭 | ||||
|---|---|---|---|---|
| ||||
Public Function MultiCRUD ( wbobj As Workbook, sheetList As String ) As Long |
Parameters
wbobj |
|---|
Type: Excel.Workbook
CRUD 할 Workbook 개체
sheetList |
|---|
Type: String
worksheet 명 리스트, ;문자로 구분
Return Value
Type: Long
처리건수정상일경우 오류코드오류일경우 음수
정상일 경우 : 처리건수
오류 일경우 : 오류코드(음수)
| 코드 블럭 | ||||||||
|---|---|---|---|---|---|---|---|---|
| ||||||||
Sub UpdateUIStateTestMultiCRUDTest() Dim mxmodule As Object Set mxmodule = Application.COMAddIns.Item("iMATRIX.ExcelModule.AddinModule").Object mxmodule.xapi.MultiCRUD ThisWorkbook, "U1;U2;U3" 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 |