VBA检查Sharepoint文件夹是否存在

Question

我正在尝试使用 URL 路径确定 Excel VBA 中是否存在 Sharepoint 文件夹，如果不存在则创建该文件夹。如果我映射网络驱动器，我可以轻松做到这一点：

 myWorkbookBasePath = "Z:Documents\Reports\2013\"

 If Dir(myWorkbookBasePath, vbDirectory) = "" Then
        MkDir myWorkbookBasePath
 End If

但是，我不知道如何使用 URL 路径来做到这一点。如果我使用

myWorkBookBasePath= "http://sharepoint/Documents/Reports/2013/"

我收到错误代码 52。谁能告诉我如何使其与 URL 路径一起工作？

Answer 1

尝试一下

    myWorkBookBasePath= "\\sharepoint\Documents\Reports\2013\"

或者

    myWorkBookBasePath = "http://sharepoint/Documents/Reports/2013/"
    myWorkBookBasePath = Replace(Replace(myWorkBookBasePath, "http:", ""), "/", "\")
    MsgBox (myWorkBookBasePath)

如果是使用托管的 Sharepoint 站点https

    myWorkBookBasePath = "https://sharepoint/Documents/Reports/2013/"
    myWorkBookBasePath = Replace(Replace(myWorkBookBasePath, "https:", ""), "/", "\")
    myWorkBookBasePath = Replace(myWorkBookBasePath, Split(myWorkBookBasePath, "\")(2), Split(myWorkBookBasePath, "\")(2) & "@SSL")
    MsgBox (myWorkBookBasePath)

VBA 中的 MkDir 只能访问文件系统并且不理解 URL，因此您可以在资源管理器中打开的任何内容都可以使用 MkDir 访问。