| Home |
| Search |
| Today's Posts |
|
#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 |
| 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) | |||
Threaded Mode
