Добрый день!
Есть макрос:
Он работает на Microsoft XML v3.0. Но, в книге есть ещё кучу макросов на Microsoft XML v6.0.
Две библиотеки не даёт подключить естественно (хотя...).
Как то можно макрос переделать его под Microsoft XML v6.0?
Пробовал самостоятельно - сломал макрос
Есть макрос:
Код |
---|
Sub отгрузкипарсинг() 'Reference: Microsoft XML, v3.0 ответ = Sheets("Лист1").Range("A1") Dim xml As New MSXML2.DOMDocument, elem As MSXML2.IXMLDOMElement xml.async = False 'отключаем асинхонный запрос, иначе данные не успевают загрузиться xml.LoadXML (ответ) 'загружаем ответ xml For Each elem In xml.DocumentElement.SelectNodes("//soap:Body/m:getUPDListResponse/m:return/m:НеподписанныйДокумент") Debug.Print elem.SelectSingleNode("m:Номер").Text Next elem End Sub |
Он работает на Microsoft XML v3.0. Но, в книге есть ещё кучу макросов на Microsoft XML v6.0.
Две библиотеки не даёт подключить естественно (хотя...).
Как то можно макрос переделать его под Microsoft XML v6.0?
Пробовал самостоятельно - сломал макрос
Всё что мы есть - это результат наших мыслей ©Будда