如何下载规范修订版？

Posted 2023-05-06

【中文标题】如何下载规范修订版？

【英文标题】：How to download the canonical revision?

【发布时间】：2016-10-14 10:14:34

【问题描述】：

在我的 Excel 工作簿中，我使用调用 URLDownloadToFile 的 VBA 代码将存储在 SharePoint 中的不同 Excel 文件下载到工作簿的当前文件夹。

下载的工作簿不是最新/规范的修订版。用作URLDownloadToFile 参数的链接是直接链接到文件的链接，而不是带有“_vti_history”的特定修订版。

我尝试多次更新 SharePoint 上的文件以对此进行测试，但每次都下载相同的旧版本。

编辑：澄清问题。 我把函数称为

URLDownloadToFile(0, "http://blahblah/file.ext", "C:\blah\file.ext", 0, 0)

保存的本地副本不是“file.ext”的最新版本，而是旧版本。

【问题讨论】：

欢迎来到 ***。请注意，这不是免费的代码编写服务，但我们渴望帮助其他程序员（和有志者）编写自己的代码。请阅读How To Ask a Good Question 上的帮助主题。您可能还想使用Tour 并在这样做的同时获得徽章。之后，请使用您迄今为止编写的 VBA 代码更新您的问题，以完成您希望完成的任务。

看看这个答案。 ***.com/questions/26186279/…

【参考方案1】：

如果下载最新版本使用的URL相同，则可能是URLDownloadToFile正在下载缓存版本。

在下载前尝试使用DeleteUrlCacheEntry清除链接缓存：

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
Private Declare Function DeleteUrlCacheEntry Lib "Wininet.dll" Alias "DeleteUrlCacheEntryA" (ByVal lpszUrlName As String) As Long
Sub downloadFile()
    Call DeleteUrlCacheEntry("http://blahblah/file.ext")
    Call URLDownloadToFile(0, "http://blahblah/file.ext", "C:\blah\file.ext", 0, 0)
End Sub

【讨论】：

就是这样，非常感谢！我没想到它被缓存了。

【参考方案2】：

我一直在努力解决这个问题。函数 URLDownloadToFile 不适用于 Sharepoint Online，因为它无法导航身份验证部分。最后，我找到了这个link，它拯救了我的一天。对我有效的解决方案版本 1，因为我无权访问文件的文件夹视图，我只能直接访问文件。我创建了以下函数并在 VBA 中添加了对 Windows 脚本宿主对象模型 库的引用。

Public Sub VBA_FileCopy(ByVal sSourceFile As String, ByVal sDestinationFile As String)
Dim fs As FileSystemObject

Set fs = New FileSystemObject 'CreateObject("Scripting.FileSystemObject")

sSourceFile = Replace(sSourceFile, "/", "\")
sSourceFile = Replace(sSourceFile, "http:", "")
sSourceFile = Replace(sSourceFile, "https:", "")
sSourceFile = Replace(sSourceFile, Split(sSourceFile, "\")(2), Split(sSourceFile, "\")(2) & "@SSL\DavWWWRoot")
sSourceFile = Replace(sSourceFile, " ", "%20")

fs.CopyFile sSourceFile, sDestinationFile, True
End Sub