![]() If Not text_only Then node. Node.InsertBefore (Chr(10)), node.FirstChild ' Add a carriage return before the children. If Not (TypeOf child Is IXMLDOMText) Then If TypeOf node Is IXMLDOMText Then Exit Sub Sub FormatXmlNode(ByVal node As IXMLDOMNode, ByVal indent As Integer) Then recursivelyįormat the children with increased indentation. ' To make this some what more readable for humans, we need to add formatting, indent it and add aĬarriage return before its children. ![]() 'Set objMemberElem = objDom.createElement("r2_tag") 'Set objMemberName = objDom.createElement("r3_Tag") ' Create element under Member element, and 'objSubRootElem.appendChild objMemberElem Created for programmers by programmers from team Browserling. There are no ads, popups or nonsense, just a easy to use XML to CSV transformer. 'Set objMemberElem = objDom.createElement("r3") Just paste your XML in the input form below and it will instantly get converted to CSV. 'Set objSubRootElem = objDom.createElement("r2") 'Set objRootElem = objDom.createElement("r1") 'Use this as guidance to create new XML files. 'This is how the main structure of the XMl file is created in VBA ![]() ![]() It might be a bit advanced if you are not used to the developer part of Excel, but if you do this once, you can then automatically generate xml documents from your Excel data with the press of one button. I previously wrote this answer on a similar question on SO, so this is copypasted from there. If you want to open the developer tab, here is some VBA code to generate XML. ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |