0

次のコードを実行していました

    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 はロードされますが、ポイントは何も表示されません。

誰かがこれについていくつかの考えを提供しますか?

どうもありがとう!ジ

4

1 に答える 1