Всем привет!
Опять непонятные вещи происходят в моем коде!
Есть небольшая процедура, которая считывает XML файл из интернета и берёт из него тексты из 2ух узлов.
Самое интересное в том, что когда я запускаю процедуру, на строке Debug.Print.... выскакивает ошибка Run-time error '91'/
НО! при этом если выполнять процедуру по шагам, то всё работает идеально!
А если этот XML файл положить на рабочий стол, то процедура работает без ошибки.
Признаться, c принципами работы c XML в VBA я знакомлюсь всего второй день, но мне сложных конструкций в этой части и не нужно знать. Меня заботит сам факт, что код отлично выполняется в режиме отладки, но выдает ошибку при выполнении процедуры. Как такое может быть?
Опять непонятные вещи происходят в моем коде!
Есть небольшая процедура, которая считывает XML файл из интернета и берёт из него тексты из 2ух узлов.
Самое интересное в том, что когда я запускаю процедуру, на строке Debug.Print.... выскакивает ошибка Run-time error '91'/
НО! при этом если выполнять процедуру по шагам, то всё работает идеально!
А если этот XML файл положить на рабочий стол, то процедура работает без ошибки.
Признаться, c принципами работы c XML в VBA я знакомлюсь всего второй день, но мне сложных конструкций в этой части и не нужно знать. Меня заботит сам факт, что код отлично выполняется в режиме отладки, но выдает ошибку при выполнении процедуры. Как такое может быть?
| Код |
|---|
Sub textXML()
Dim strXML As String
Dim objXML As Object
strXML = "http://XXX.ru/TestXMLFile.xml"
Set objXML = CreateObject("MSXML2.DOMDocument")
If Not objXML.Load(strXML) Then 'strXML is the string with XML'
Err.Raise objXML.parseError.ErrorCode, , objXML.parseError.reason
End If
Debug.Print objXML.LastChild.SelectSingleNode("Node1").Text
Debug.Print objXML.LastChild.SelectSingleNode("Node2").Text
Set objXML = Nothing
End Sub
|
