엑셀로 웹 사이트 xml 검색하기

Question

Excel2003에서 저는 Yahoo finance에서 일부 콘텐츠를 검색하려고합니다.

내가

지금까지 정말 간단 하위 있습니다

는

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 외에도 모든 것이 실제로 비어 있습니다.

무엇이 여기에 있습니까?

Answer 1

서버가 XML을 반환하는 경우 responseXML에 만 내용이있다 응답. URL이 HTML이 아닌 XML을 반환하는 것처럼 보입니다.

Answer 2

이 이미 않는 오픈 소스 프로젝트가 있다고 지적 가치가있다 :이 당신에게 유용 희망 http://excel-dna.net/2011/04/28/financial-analytics-suite-finansu-made-with-excel-dna/

을

Answer 3

이것은 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