여러시트 CRUD 처리
Sheet 명을 ; 구분으로 여러 시트 처리 묶음 처리 할 경우 하나의 transaction 으로 처리됩니다.
(오류 발생 할 경우 경우 전체 rollback 처리됨)
| 코드 블럭 | ||||
|---|---|---|---|---|
| ||||
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, "MTX_FGAC_USER;MTX_FGAC_INIT;MTX_FTP" End 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 |