使用 VBA 从互联网下载谷歌财务文件答案

【问题标题】：Download google finance file from internet using VBA使用 VBA 从互联网下载谷歌财务文件
【发布时间】：2014-07-22 04:39:28
【问题描述】：

我正在做一个 VBA 模块，我想在其中从 google Finance 下载 csv 文件。

这是一个示例网址

www.google.com/finance/historical?q=LON%3AESSR&ei=dEfGU_ioD4iKwAO3-4HQDg&output=csv

将这个 URL 放入浏览器后，我会下载一个 csv 文件。但是当我使用“WinHttpReq”对象下载文件时，我没有得到 csv 文件。相反，我得到了一些 HTML。

我是否可以使用 VBA 中的 URL 下载此 CSV 文件？

谢谢，阿伦。

【问题讨论】：

如果你有代码，你应该把它包含在你的问题中。

标签： excel vba

【解决方案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

【讨论】：