Excel VBA检查Sharepoint文件夹是否存在

我试图使用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路径吗

试试看

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

或

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

    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访问。

试试看

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

或

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

    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，因此可以在Explorer中打开的任何内容都可以使用MkDir访问。

我使用了上面的第1个版本。非常好，谢谢。我使用了上面的第1个版本。很好，谢谢。