vba从url下载excel工作簿并保存到C盘？

我试图下载一个Excel工作簿，并将其保存到本地计算机上的用户C盘。 出于某种原因，我得到一个错误操作是不允许在这种情况下在以下行：

oStream.Write WinHttpReq.ResponseBody 

有人可以告诉我我要去哪里吗？

谢谢

 Dim myURL As String myURL = "http://eu.storagemadeeasy.com/files/357eb15ab28bade4da58c149506d00d8.xls" Dim WinHttpReq As Object Set WinHttpReq = CreateObject("MSXML2.ServerXMLHTTP.6.0") WinHttpReq.Open "GET", myURL, False WinHttpReq.Send myURL = WinHttpReq.ResponseBody If WinHttpReq.Status = 200 Then Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 2 oStream.Write WinHttpReq.ResponseBody oStream.SaveToFile ("C:\logs.xls") oStream.Close End If 

Answer 1

• 使用二进制stream

• 现代版本的Windows不允许写入C：的根目录，使用不同的path。

   oStream.Type = 1 oStream.Write WinHttpReq.ResponseBody oStream.SaveToFile Environ$("TEMP") & "\logs.xls" '// users temp dir