Question

我正在尝试从网上下载Excel VBA项目中的文件。我找到了一些代码来下载需要凭据的文件，这些文件在我的情况下由于网站的设置而无法使用。

该网站不需要密码，但是要求您在文件下载开始之前单击“确定”。

Microsoft.XMLHTTP对象是否仍然可以按“确定”并开始文件下载？

Sub DownloadFile()

Dim myURL As String
myURL = "https://dibbs2.bsm.dla.mil/Downloads/RFQ/Archive/bq180620.zip"

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

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

结束子

网站需要单击“确定”才能下载文件-VBA

0 个答案: