Как добавить атрибут name элементам xml

Как добавить атрибут name элементам xml, макрос для импорта в xml

Пользователь

Сообщений: 2 Регистрация: 22.12.2017

22.12.2017 19:37:57

Исходник макроса нашел и допилил под себя, но не хватает одного мелочи - к полям <custom> требуется добавить атрибут name. Всего в конечном файле их порядка 15, и у каждого свой name должен быть: door, rayon, gaz и т. д., в примере убрал лишние поля, оставил несколько.Знаний не хватает. Кто-то может подсказать как это реализовать?
Сейчас так:
<custom>Продам однокомнатную квартиру</custom>
А надо так (для примера):
<custom name="door">Продам однокомнатную квартиру</custom>
В файле пример excel с макросом и конечный файл xml

Прикрепленные файлы

primer.zip (20.99 КБ)

Doober

Пользователь

Сообщений: 2326 Регистрация: 09.04.2013

22.12.2017 23:30:26

так можно

Код

    Set createlisting = xml.createElement("listing")
    createlisting.setAttribute "num", num
    '  было
    createlisting.appendChild(xml.createElement("custom")).Text = title
    'Стало
    Set Nod = xml.createElement("custom")
     Nod.Text = title
    Nod.setAttribute "name", "door"
    createlisting.appendChild (Nod)

evgen06 Пользователь Сообщений: 2 Регистрация: 22.12.2017	#3 22.12.2017 23:52:09 Doober, спасибо большое, то что нужно! P.S. Не знаю имеет ли смысл, но выложу здесь итоговый вариант файла, может кому-то пригодится. Исходный файл шел с комментариями, изменения также постарался комментировать. При большом желании можно под себя переделать. Наверняка наколхозил в коде и все это можно значительно упростить, но пока в vba я полный ноль Прикрепленные файлы excel_to_xml.xlsm (43.61 КБ) Изменено: evgen06 - 23.12.2017 00:21:32 (Добавил файл)