VBA를 사용하여 인터넷에서 Google 금융 파일 다운로드

Question

Google 재무부에서 CSV 파일을 다운로드하려는 VBA 모듈을 만들고 있습니다. 내가 브라우저에서 URL을 넣어 일단 여기

은 샘플 URL

www.google.com/finance/historical?q=LON%3AESSR & EI = dEfGU_ioD4iKwAO3-4HQDg & 출력 = CSV

입니다 I csv 파일을 다운로드 받으십시오. 그러나 "WinHttpReq"개체를 사용하여 파일을 다운로드 할 때 CSV 파일을 가져 오지 못합니다. 대신에 HTML을 얻고 있습니다.

VBA의 URL을 사용하여이 CSV 파일을 다운로드 할 수 있습니까?

감사합니다. Arun.

Answer 1

저는 WINHTTP에 익숙하지 않지만 XMLHTTP를 사용하면 정상적으로 작동하는 것으로 보입니다. 파일 경로를 입력하십시오. & 이름 설명 된 위치

Sub getCSV() 

    Dim xhr As Object 
    Set xhr = CreateObject("MSXML2.XMLHTTP") 

    xhr.Open "GET", "http://www.google.com/finance/historical?q=LON%3AESSR&ei=dEfGU_ioD4iKwAO3-4HQDg&output=csv", False 
    xhr.send 

    With xhr 

     If .Status = 200 And .ReadyState = 4 Then 

      myfile = FreeFile 

      'HERE 
      Open "FILE_PATH_&_NAME.csv" For Output As #myfile 
       Print #myfile, .responseText 
      Close #myfile 

      Set xhr = Nothing 

     End If 

    End With 

End Sub