次のコードを実行していました
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
ご覧のとおり、この XML を Web からダウンロードすると機能します。そうしないと、objXML はロードされますが、ポイントは何も表示されません。
誰かがこれについていくつかの考えを提供しますか?
どうもありがとう!ジ