Help seperate Arrays
Accomplished what I wanted using the following code. If anyone has a
better way to do this please let me know.
Thanks,
Gabe
If iobj_dom.documentElement.childNodes.Length 1 Then
For Each iobj_node In iobj_dom.documentElement.childNodes
ReDim sys(iSys)
sys(iSys) = iobj_node.childNodes(0).Text
Range("D" + CStr(ll_range)).Value = (Range("D" +
CStr(ll_range)).Value + sys(CLng(iSys)) + ", ")
iSys = iSys + 1
Next
strLength = Len(Range("D" + CStr(ll_range)).Value)
Range("D" + CStr(ll_range)).Value = Left(Range("D" +
CStr(ll_range)).Value, (strLength - 2))
ElseIf iobj_dom.documentElement.childNodes.Length = 1 Then
Range("D" + CStr(ll_range)).Value =
iobj_dom.documentElement.Text
End If
|