Set Root = Doc_XML.createElement("Root") 'Création d'une racineĭoc_XML.appendChild Root 'Ajout de la racine au XML 'Set Node = Nothing 'Remise à zéro du noeud Set Node = Doc_XML.createProcessingInstruction("xml", "version=""1.0"" encoding=""utf-8""")ĭoc_XML.appendChild Node 'Ajout des données au fichier Set Doc_XML = CreateObject("MSXML2.DOMDocument.6.0") 'Création du XML > de créer la racine du XMLĭim Node As Object '. Set Doc_XML = CreateObject("MSXML2.DOMDocument.6.0")Ĭode example close to your post Public Sub test2xml()ĭim Doc_XML As Object 'Va nous permettre de créer le XMLĭim Root As Object '. nodes with the names as node contents)Īdditional hint: I recommend to declare current and latest version 6 (without version number the declaration defaults to vers. (if not that can be changed easily back similar to your OP's code using repetitive. the node content to be filled by the referring cell's content, and not by the cell name.the cell's name as node name (e.g., and not each time.Set Node = Doc_XML.createElement(Nm.Name) The actual issue, however, is not the RefersToRange property, but the simple fact, that you have to Set objects, e.g. I suppose these cases wouldn't occur in your xml structure, so you have to do some error handling. If the Name object doesn't refer to a range (for example, if it refers to a constant or a formula), this property fails.
MS Help to RefersToRange states as follows
0 kommentar(er)
