使用Excel檢索網站xml

在Excel2003中，我試圖從雅虎財務中檢索一些內容。使用Excel檢索網站xml

我有一個非常簡單的子至今：

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是空的。除了反響的文字，一切都是空的。

缺少什麼我在這裏？

來源

2012-09-24 yu_ominae

如果服務器返回一個XML響應有隻在responseXML的內容。看起來像你的URL返回HTML而不是XML。 –

啊，我明白了。我認爲XML是從html內容生成的。謝謝。如果你把這個評論作爲答案，我會接受它。 –

如果服務器返回的XML這裏只有在responseXML的內容響應。看起來像你的URL返回HTML而不是XML。

來源

2012-09-25 03:58:42

這是值得指出的是有一個開源項目，它已經做了這個： http://excel-dna.net/2011/04/28/financial-analytics-suite-finansu-made-with-excel-dna/

我希望這是對你有用

來源

2012-09-24 16:10:39 JustinJDavies

這看起來很漂亮，謝謝你的提示:)這其實只是一個毫無意義的任務，我爲提高自己的編碼技能而設置了自己，所以我正在尋求從頭開發一個解決方案。 –

這就是我用於ECB匯率的東西。

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-17 15:15:47

使用Excel檢索網站xml

回答

相關問題