Question

我尝试使用我找到的代码https://sharepoint.stackexchange.com/questions/174690/open-file-in-a-sharepoint-list-via-vba

我的目标是将文档保存在用户临时文件夹中，然后将其打开。但是我得到了

错误52

FileCopy行上的

。我直接从电子邮件链接复制了sharepoint链接，因此它应该完全准确。

我在这里提到了很多关于FileCopy Error 52的问题，但无法找到相关的答案。

如果可以打开文档而不保存实际上更好的文档，但我不能使用Microsoft Scripting Runtime，因为有些人在没有该库的Macintosh计算机上。我发现直接打开的解决方案似乎都需要这就是为什么我要保存然后打开。

 Dim strFolder As String
 Dim strName As String
 Dim URL As String

 strFolder = Environ("temp")
 strName = "\QpiExport.xlsx"
 URL = "https://sharepoint.company.com/some/more/files/Shared%20Documents/QSPI%20Export/QpiExport.xlsx"

 If Dir(strFolder & strName) <> "" Then ' if the temp file already exists then delete it first
  VBA.SetAttr strFolder & strName, vbNormal ' remove any file attributes (e.g. read-only) that would block the kill command
  VBA.Kill strFolder & strName ' delete the file
 End If

 FileCopy URL, strFolder & strName
 Workbooks.Open strFolder & strName

Answer 1

由工作中的某人解决：

我需要使用以下文件路径来获得与网址不同的sharepoint。

  URL= "\\sharepoint.company.com@SSL\SomethingRoot\a\few\folders\Shared Documents\QSPI Export\QpiExport.xlsx"

打开Sharepoint文档错误52

1 个答案: