0

Excel2003で、YahooFinancialからコンテンツを取得しようとしています。

私はこれまでに本当に単純な潜水艦を持っています：

Public Sub test(BaseRange As Range)

    Dim xmlObject As New MSXML2.XMLHTTP60
    Dim xmlDoc As New MSXML2.DOMDocument

    With xmlObject
        Call .Open("GET", "http://biz.yahoo.com/research/earncal/20110923.html", False)
        Call .send
    End With


    With ActiveSheet.Range("F2")
        .Value = xmlObject.responseXML.XML
    End With

End Sub

サブはエラーなしで実行され、xmlObject.responseTextにはページのhtmlテキストが含まれているようですが、xmlObject.responseXml.XMLは空です。resonsetextを除いて、すべてが実際には空です。

ここで何が欠けていますか？

4

3 に答える 3

2

これをすでに行っているオープンソースプロジェクトがあることを指摘する価値があります：http： //excel-dna.net/2011/04/28/financial-analytics-suite-finansu-made-with-excel-dna/

これがお役に立てば幸いです

于 2012-09-24T16:10:39.643 に答える
1

サーバーがXML応答を返す場合、responseXmlにはコンテンツのみが含まれます。URLはXMLではなくHTMLを返すようです。

于 2012-09-25T03:58:42.347 に答える
0

これは私がECBFXレートに使用したものです。

Sub ecb_fx()
ActiveWorkbook.XMLIMPORT url:= _

        "https://www.ecb.europa.eu/stats/eurofxref/eurofxref-hist.xml", ImportMap:=Nothing, _
        Overwrite:=True, Destination:=Range("$B$6")
End Sub
于 2016-08-17T15:15:47.893 に答える