2

URLパスを使用してSharepointフォルダーがExcel VBAに存在するかどうかを判断しようとしています。存在しない場合はフォルダーを作成します。ネットワークドライブをマップすると、これを簡単に実行できます。

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

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

ただし、URL パスを使用してそれを行う方法がわかりません。私が使用する場合

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

エラー コード 52 が表示されます。URL パスで動作させる方法を誰か教えてもらえますか?

4

1 に答える 1

5

これを試してみてください

    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 でアクセスできます。

于 2013-10-31T05:09:39.333 に答える