Экспортирование из xls в xml(VBA)

[doober]

Попробуйте так

Sub ExtportToXML()
    Dim objDoc As MSXML2.DOMDocument
    Dim objNode As MSXML2.IXMLDOMNode
    Dim objRoot As MSXML2.IXMLDOMElement
    Dim objElem As MSXML2.IXMLDOMElement
     Dim objElem0 As MSXML2.IXMLDOMElement
    Dim ar As Variant
    Dim i As Integer
    Set objDoc = New DOMDocument
    objDoc.resolveExternals = True
    Set objNode = objDoc.createProcessingInstruction( _
        "xml", "version='1.0' encoding='windows-1251'")
    Set objNode = objDoc.InsertBefore(objNode, _
    objDoc.ChildNodes.Item(0))
    Set objRoot = objDoc.createElement("Aaiiua")
    Set objDoc.DocumentElement = objRoot
   i = 1
  Do
    Set objElem0 = objDoc.createElement("list_clients")
        objRoot.appendChild objElem0
                              
        Set objNode = objDoc.createElement("id_merch")
            objNode.Text = Cells(i, 1)
            objElem0.appendChild objNode
            
        Set objElem = objDoc.createElement("client_info")
            objElem.setAttribute "ident", Cells(i, 2)
            objNode.appendChild objElem
            objElem.setAttribute "info", Cells(i, 3)
            objElem0.appendChild objElem

        Set objElem = objDoc.createElement("client_info")
            objElem.setAttribute "ident", Cells(i, 4)
            objRoot.appendChild objElem
            objElem.setAttribute "info", Cells(i, 5)
            objElem0.appendChild objElem
            objElem.setAttribute "rest", Cells(i, 6)
           objElem0.appendChild objElem

      i = i + 1
 Loop Until Cells(i, 1) = ""
    objDoc.Save strFilePath
End Sub

[Evrica]

Спасибо большое! Работает!)

[Evrica]

оказывается немного не так нужно)
вид должен быть такой :

<?xml version="1.0" encoding="WINDOWS-1251"?> 
<list_clients>
<id_merch>1</id_merch>
<client_info ident="1" info="ФИО" />
<client_info inent="2" info="ФИО" />
<client_info ident="3" info="ФИО" />
</list_clients>

т.е. чтобы <id_merch> не повторялась и был только один тег <list_clients>
как так сделать? Код макроса выше

[doober]

Без файла Excel и схемы XML(желательно файл .xsd) угадывать больше не буду

[Evrica]

почти сделал...только не знаю как добавить <id_merch> вначале,чтобы не повторялся
схемы вроде нету)

P.S. добавил схему

[doober]

у вас согласно схемы все верно получается

<list_clients>
<client_info rest="2382,41р." info="Петров" ident="1"/>
<client_info rest="2340,80р." info="Иванов" ident="2"/>
<client_info rest="1227,74р." info="Чернов" ident="3"/>
<client_info rest="2393,38р." info="Петров" ident="4"/>
<client_info rest="2382,41р." info="Иванов" ident="5"/>
<client_info rest="2340,80р." info="Чернов" ident="6"/>
<client_info rest="1227,74р." info="Петров" ident="7-8"/>
<client_info rest="2393,38р." info="Иванов" ident="9-10"/>
<client_info rest="2382,41р." info="Чернов" ident="11"/>
</list_clients>

Так должно быть?

−
	<list_clients>
<id_merch>1</id_merch>
<client_info rest="2382,41р." info="Петров" ident="1"/>
<id_merch>2</id_merch>
<client_info rest="2340,80р." info="Иванов" ident="2"/>
<id_merch>3</id_merch>
<client_info rest="1227,74р." info="Чернов" ident="3"/>
<id_merch>4</id_merch>
<client_info rest="2393,38р." info="Петров" ident="4"/>
<id_merch>5</id_merch>
<client_info rest="2382,41р." info="Иванов" ident="5"/>
<id_merch>6</id_merch>
<client_info rest="2340,80р." info="Чернов" ident="6"/>
<id_merch>7-8</id_merch>
<client_info rest="1227,74р." info="Петров" ident="7-8"/>
<id_merch>9-10</id_merch>
<client_info rest="2393,38р." info="Иванов" ident="9-10"/>
<id_merch>11</id_merch>
<client_info rest="2382,41р." info="Чернов" ident="11"/>
</list_clients>

[Evrica]

Нет, должно быть так:

<list_clients>
<id_merch>123</id_merch>
<client_info rest="2382,41р." info="Петров" ident="1"/>
<client_info rest="2340,80р." info="Иванов" ident="2"/>
<client_info rest="1227,74р." info="Чернов" ident="3"/>
<client_info rest="2393,38р." info="Петров" ident="4"/>
<client_info rest="2382,41р." info="Иванов" ident="5"/>
<client_info rest="2340,80р." info="Чернов" ident="6"/>
<client_info rest="1227,74р." info="Петров" ident="7-8"/>
<client_info rest="2393,38р." info="Иванов" ident="9-10"/>
<client_info rest="2382,41р." info="Чернов" ident="11"/>
</list_clients>

[doober]

Не мог долго на сайт зайти

Const strFilePath As String = "C:\TestXML1.xml"

Sub ExtportToXML()
        Dim objDoc As MSXML2.DOMDocument
        Dim objNode As MSXML2.IXMLDOMNode
        Dim objRoot As MSXML2.IXMLDOMElement
        Dim objElem As MSXML2.IXMLDOMElement
        Dim objElem0 As MSXML2.IXMLDOMElement
        Dim ar As Variant
        Dim i As Integer
        Set objDoc = New DOMDocument
        objDoc.resolveExternals = True
        Set objNode = objDoc.createProcessingInstruction( _
                      "xml", "version='1.0' encoding='windows-1251'")
        Set objNode = objDoc.InsertBefore(objNode, _
                                          objDoc.ChildNodes.Item(0))
        Set objRoot = objDoc.createElement("list_clients")
        Set objDoc.DocumentElement = objRoot
        Set objNode = objDoc.createElement("id_merch")
        objNode.Text = 123
        objRoot.appendChild objNode
        i = 1
        Do
                Set objElem = objDoc.createElement("client_info")
                objElem.setAttribute "rest", Cells(i, 3)

                objElem.setAttribute "info", Cells(i, 2)

                objElem.setAttribute "ident", Cells(i, 1)
                objRoot.appendChild objElem


                i = i + 1
        Loop Until Cells(i, 1) = ""
        objDoc.Save strFilePath
End Sub

[Evrica]

как все оказывается просто)) была такая идея, но что-то не получилось у меня)
Спасибо большое!