如何使用 VBA 从 SharePoint 下载文件? [英] How to download a file from SharePoint with VBA?
本文介绍了如何使用 VBA 从 SharePoint 下载文件?的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我正在尝试使用 VBA 从 SharePoint 下载文件.
I am trying to download a file from SharePoint with VBA.
该文件是一张图片,但图片一旦进入系统就无法查看.
The file is a picture but the picture isn't view-able once it gets onto the system.
我认为我下载的格式有误.
I think that I'm downloading it in the wrong format.
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
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
推荐答案
这是我目前用来从我们的 Sharepoint 站点下载文件的包装器代码:
Here is the wrapper code I currently use to download files from our Sharepoint site:
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.
The function DownloadFileFromWeb returns 0 if the download was successful.
这篇关于如何使用 VBA 从 SharePoint 下载文件?的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文