Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help seperate Arrays
I'm certain this is not very difficult, but for some reason I am
having difficulty accomplishing what I want. iobj_dom could contain values like AB, AC, AD2, AF etc. When I write it I want the values seperated by commas as shown, but what I get is ABACAD2AF. There could be 1 to ??? elements in the array. For Each iobj_node In iobj_dom.documentElement.childNodes ReDim sys(iSys) sys(iSys) = iobj_node.childNodes(0).Text iSys = iSys + 1 Next Range("C" + CStr(ll_range)).Value = iobj_dom.documentElement.Text Thanks in advance, Gabe |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
add two cells from seperate work sheets into a cell on seperate wo | Excel Worksheet Functions | |||
How do I have seperate headers for seperate pages in 1 worksheet? | Excel Discussion (Misc queries) | |||
How do I seperate a full name field out into three seperate columns? | Excel Worksheet Functions | |||
seperate first 2 lines of column in seperate columns in same row | Excel Discussion (Misc queries) | |||
How do I seperate data from a pivot into seperate worksheets? | Excel Discussion (Misc queries) |