' include 전문 조회변수 Dim strDispKb : strDispKb=chr(26) Dim strDispKb1 : strDispKb1=chr(27) Dim strRecvData : strRecvData = "" Dim strRecvData1 : strRecvData1 = "" Dim objNodeList Dim i Dim j Dim arrData : Redim arrData(intColCnt) Set objNodeList = objXML.selectNodes("//" & ArrayStartCode) For i = 0 To objNodeList.length - 1 If objNodeList.Item(i).hasChildNodes = True Then For j = 1 To objNodeList.I..