🎄teratailクリスマスプレゼントキャンペーン2024🎄』開催中!

\teratail特別グッズやAmazonギフトカード最大2,000円分が当たる!/

詳細はこちら
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

SharePoint

SharePointは、マイクロソフトにより開発された、ソフトウェア開発のドキュメント管理やコラボレーションを行うプラットフォームの総称です

Q&A

解決済

1回答

35894閲覧

VBAでSharePointの上フォルダの存在を確認したい

otukisama

総合スコア1

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

SharePoint

SharePointは、マイクロソフトにより開発された、ソフトウェア開発のドキュメント管理やコラボレーションを行うプラットフォームの総称です

0グッド

1クリップ

投稿2022/04/01 07:03

編集2022/04/01 07:13

VBAでFileSystemObjectのFolderExistsを利用して、SharePoint上のフォルダがあるか確認したのですが、シェアポイントから取得したパスでは「False」が帰ってきてしまいます。
(ローカルパスやOneDriveパスでは問題ないのですが、SharePoint上のフォルダでの対応が必要な状態です。)
なにか方法はないでしょうか??

【前提条件】
SharePoint上に任意のフォルダを作成しておく(例:TEST)

【SharePointからリンクコピーで取得したパス】
https://XXX.sharepoint.com/:X:/r/sites/XXX/Shared Documents/TEST (「:X:/r」は「X」を小文字に読み替え)

【ソース】
Dim SharePoint_path as string
Dim fs As Scripting.FileSystemObject
Dim kekka As String
Public Sub main()
SharePoint_path = 'SharePointからリンクコピーで取得したパス'
SharePoint_path = URLdecode_path(SharePoint_path)'フォルダ名に日本語が使用されているため、URLデコードを実施
Set fs = New Scripting.FileSystemObject
kekka = fs.FolderExists(SharePoint_path) 'ここで「True」ではなく「False」になる
End Sub

Function URLdecode_path(path As String) As String
Dim path_full, path_left, pathright As String
With CreateObject("ScriptControl")
.Language = "JScript"
path_full = .CodeObject.decodeURI(path)
End With
path_full = Left(path_full, InStr(path_full, "?") - 1)
path_left = Left(path_full, InStr(path_full, "/:"))
path_right = Right(path_full, Len(path_full) - InStr(path_full, "sites") + 1)
URLdecode_path = path_left & path_right
End Function

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

Webクエリ(.iqy)を使ってSharePoint上のファイル/フォルダリストを採取する
というのはいかがでしょうか?

参考(手操作)
https://www.teijitaisya.com/sharepoint-filelist/

※一度クエリファイルを作成すれば、以降はこのファイルを
Excelで開くだけで最新リストが採取できます。

詳細はたとえば以下などを参照ください(".iqy"でググれば沢山出てきます)
https://www.teijitaisya.com/sharepoint-filelist/

投稿2022/04/15 01:48

h.horikoshi

総合スコア505

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.36%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問