api - 如何使用 VBA 下载文件(无需 Internet Explorer)

Question

我需要使用 Excel 中的 VBA 从网站下载 CSV 文件。服务器还需要对我进行身份验证，因为它是来自调查服务的数据。

我发现了很多使用 VBA 控制的 Internet Explorer 的示例。然而，它大多是缓慢的解决方案，而且大多数也很复​​杂。

更新:过了一段时间，我发现了一个在 Excel 中使用 Microsoft.XMLHTTP 对象的漂亮解决方案。我想分享以下解决方案以供将来引用。

Answer 1

该解决方案基于以下网站: http://social.msdn.microsoft.com/Forums/en-US/bd0ee306-7bb5-4ce4-8341-edd9475f84ad/excel-2007-use-vba-to-download-save-csv-from-url

稍加修改即可覆盖现有文件并传递登录凭据。

Sub DownloadFile()

Dim myURL As String
myURL = "https://YourWebSite.com/?your_query_parameters"

Dim WinHttpReq As Object
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
WinHttpReq.Open "GET", myURL, False, "username", "password"
WinHttpReq.send

If WinHttpReq.Status = 200 Then
    Set oStream = CreateObject("ADODB.Stream")
    oStream.Open
    oStream.Type = 1
    oStream.Write WinHttpReq.responseBody
    oStream.SaveToFile "C:\file.csv", 2 ' 1 = no overwrite, 2 = overwrite
    oStream.Close
End If

End Sub