如何使用VBA从Sharepoint下载文件

我试图从Sharepoint下载一个文件与VBA，并不知道如何做到这一点！ 该文件实际上是一个图片（不知道是否重要？）和下载进行得很好，但一旦它进入系统，图片不可查看。 （下面的代码）我想我正在下载它在错误的格式，但（像我说的）我无法弄清楚。

任何帮助将不胜感激！ J.P

Sub DownloadFromSharepoint() Dim myURL As String myURL = "https://MYSHAREPOINTSITE" Dim WinHttpReq As Object Set WinHttpReq = CreateObject("Microsoft.XMLHTTP") WinHttpReq.Open "GET", myURL, False 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\DOMAIN\temp.jpg") oStream.Close End If End Sub 

Answer 1

这里是我目前用来从我们的Sharepoint网站下载文件的包装代码：

 Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _ ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long Function DownloadFileFromWeb(strURL As String, strSavePath As String) As Long ' strSavePath includes filename DownloadFileFromWeb = URLDownloadToFile(0, strURL, strSavePath, 0, 0) End Function 

如果下载成功，则DownloadFileFromWeb函数返回0。