VBA检查Sharepoint文件夹是否存在答案

【问题标题】：VBA Check If Sharepoint Folder ExistsVBA检查Sharepoint文件夹是否存在
【发布时间】：2017-12-05 22:13:58
【问题描述】：

我正在尝试使用 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 路径一起工作？

【问题讨论】：

标签： excel vba sharepoint

【解决方案1】：

试一试

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

或

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

如果是使用 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 访问。

【讨论】：

我使用了上面的第一个版本。效果很好，谢谢。