Excel VBA Can'；无法连接到SharePoint库路径

我有一个sub，用于使用文件系统对象方法将错误日志文件（.txt）上载到SharePoint库。当建立到SharePoint的服务器连接时，此功能可以正常工作。虽然当这个连接不存在时（例如当它超时时），它当然找不到路径

在关于类似问题的讨论中，有人建议手动修复此问题：

另外，请确保您可以使用Windows连接到服务器 探险家

将路径粘贴到窗口资源管理器中。如果您遇到错误，它可能会 可能是路径无效，也可能是连接已计时 出来检查/修复这两个问题的快速方法是

• 打开Internet浏览器
• 将sharepoint浏览到有问题的库
• 那么，
  • 如果使用“经典体验”视图，请转到功能区>库>使用资源管理器打开
  • 如果不使用“经典”视图，请大致转到“共享”按钮下的“视图选择器”菜单，然后单击“文件资源管理器”中的“视图”

这将强制与服务器建立新连接，您现在可以 从Windows资源管理器地址栏复制/粘贴完整路径

然后，该路径应该与其他windows文件系统路径一样工作。 特别是如果您使用上面的

@SSL\DavWWWRoot

方法。在我的 然而，根据经验，它需要不时地“重新连接”。 通常每隔几天或重启后

这个解决方案确实有效，尽管我希望通过编程实现这一点。我尝试使用ADODB.Connection方法：

Public Const sDEMAND_ROLE_GUID As String = "{[GUID of SharePoint library]}"
Public Const sSHAREPOINT_SITE As String = "[URL of SharePoint].local/[Name of SharePoint site]/"

Sub Connect_Sharepoint()
    
    Dim cn As ADODB.Connection
    Dim sConn As String
    
    sConn = "Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;" & _
            "DATABASE=" & sSHAREPOINT_SITE & ";" & _
            "LIST=" & sDEMAND_ROLE_GUID & ";"
    
    Set cn = New ADODB.Connection
    
    With cn
        .ConnectionString = sConn
        .Open
    End With
    
    Call [Sub For uploading .txt To SharePoint]
    
End Sub

它运行时没有任何错误，但仍找不到上载.txt文件的子文件中的路径。有没有人知道我做错了什么，或者有什么解决办法