时间戳

首页 > 解决方案 > 从 Sharepoint 复制和下载文件

vba - 从 Sharepoint 复制和下载文件

问题描述

我从几天以来一直在寻找一种方法

1.将文件从文件夹（磁盘）复制到共享点 2.将文件从共享点复制到文件夹（磁盘）

我为问题 2 找到的代码，您可以在下面找到。但它并没有真正起作用。文件已损坏，复制后只有 4kb 大。

有没有人为我解决这两个问题？非常感谢

Option Compare Database
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
Sub DownloadFromSharepoint_DB()

Dim strXls As String
Const strURL As String = "Sharepointlink"

DownloadFileFromSharePoint strURL
strXls = "File"

End Sub

Sub DownloadFileFromSharePoint(strURL As String)

Dim i As Integer
Dim strSavePath As String
Dim returnValue As Long

    strSavePath = "File"
    returnValue = URLDownloadToFile(0, strURL, strSavePath, 0, 0)
End Sub

标签： vbams-accesssharepoint

解决方案

我发现当我关闭共享点并再次打开时，共享点链接正在永久更改。这意味着例如现在 Ling 是 .....1&e=QydH5u 并且一秒后它是 ..1&e=GtsD2p

难以置信这个软件

推荐阅读