Добрый день!
Есть макрос:
Он работает на 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?
Пробовал самостоятельно - сломал макрос
Всё что мы есть - это результат наших мыслей ©Будда
