Перебор наименований товаров из образцового XML-документа:
Set xmlParser = CreateObject("Msxml2.DOMDocument")
xmlParser.async = False
xmlParser.load "C:\Sample.xml"
'Получаем корневой элемент (элемент PRODUCTS)
Set currNode = xmlParser.documentElement
******
и тут у меня ошибка
используй
Узел=Парсер.selectNodes(нужная ветка);
Для к=0 по Узел.length-1 Цикл
Узел1 = Узел.item(к);
Для инд = 0 По Узел1.attributes.length-1 Цикл
Атрибут=Узел1.attributes.item(Инд);
Сообщить(Атрибут.value);
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший