使用VBA从互联网下载google金融文件
使用VBA从互联网下载google金融文件
提问于 2014-07-21 19:04:08
我正在做一个VBA模块，在其中我想从google下载csv文件。
下面是一个示例URL
www.google.com/finance/historical?q=LON%3AESSR&ei=dEfGU_ioD4iKwAO3-4HQDg&output=csv
一旦我把这个URL放到浏览器中，我就会下载一个csv文件。但是，当我使用"WinHttpReq“对象下载文件时，我没有得到csv文件。相反，我得到了一些HTML。
我是否可以使用VBA中的URL下载这个CSV文件？
谢谢，阿伦。
回答 1
Stack Overflow用户
回答已采纳
发布于 2014-07-21 20:39:28
我对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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/24872710
复制相关文章
相似问题
腾讯云开发者
