A következő kódot futtattam
Sub test()
'XML = "C:\R_20130408_1.xml" 'This is local, and works fine
XML = "http://www.treasurydirect.gov/xml/R_20130408_1.xml" 'This get nothing for "point"
Dim objXML As DOMDocument
Dim point As IXMLDOMNode
Set objXML = New DOMDocument
With objXML
.Load XML
Set point = .SelectSingleNode("//AuctionAnnouncement/CUSIP")
Sheets(1).Cells(2, 2) = point.Text
End With
End Sub
Amint látod, ha letöltöm ezt az XML-t a webről, akkor működésbe hozhatom, különben az objXML továbbra is betöltődik, de a lényeg nem lesz semmi.
Valaki adna valami gondolatot ezzel kapcsolatban?
Nagyon köszönöm! Ji