none
VBA Unsig Xml RRS feed

  • Pergunta

  • Amigos boa tarde  eu so o profeta estou precisando de uma ajudinha de vo6

    seguinte : tenho uma aplicação que vai gerar uma parte de xml  <sempre a mesma info>X</sempre a mesma info>

                                                                                                 <sempre a mesma info>X</sempre a mesma info>

                                                                                                 <sempre a mesma info>X</sempre a mesma info>

                                                                                                 <sempre a mesma info>X</sempre a mesma info>      

    bom até certa parte (+++++++++++++++++++ em certo momento)>>>>>>>>>>

    segue uma intrusção  da maneira que entendi , nesse momento ^^^^^^^^^^VVVVVVVVVVVVVVVV

    >>>>>

    Private................ VBA
    
    Dim objForm As DOMDocument60
       Dim objRoot As IXMLDOMElement
       Dim objMemberElem As IXMLDOMElement
       Dim objMemberRel As IXMLDOMAttribute
       Dim objMemberName As IXMLDOMElement
       Dim Node As IXMLDOMNode
    
    
      
    'Open XML
    
     Set objForm = New DOMDocument60
    objForm.Load (FileName)
    
    'Edit XML
    For Each Node In objForm.DocumentElement.getElementsByTagName("Tag")
    Node.ParentNode.appendChild Node.CloneNode(True)
    
    Next
    
    'Save XML
    objForm.Save (FileName)
    
    End Sub

    >>>>>

    ok ela clona +  dentro do  1 node ( atributto. nodeValue    <Tag  nItem= "1" >o proximo tem que ser 

    >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><Tag  nItem= "2" >

    >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><Tag  nItem= "3" > e assim por diante

     e em cada produto gerar a tag mais>>>>>>>>>>>>>>>^^^^^^^^^^^^^^^^^^^^^^^^^^ as informação

    do produto inserindo nos seus correspondente node 

    espero que com isso consegui explicar :?????????????????


    domingo, 24 de setembro de 2017 20:06