Excel (VBA)

Excel VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(指定なし : 指定なし)
sharepointのファイル一覧をVBAで取得したい
投稿日時: 20/05/15 08:23:20
投稿者: h1989119

Sharepoint上に保存したファイル一覧を VBAのListObjectsにて取得するマクロを
作成中ですが以下の点について、ご教授をお願いいたします
 
(作成中のマクロ)
 
    Dim objMyList As ListObject
    Dim objWksheet As Worksheet
    Dim strSPServer As String
 
    Const SERVER As String = "****** sharepointのURLアドレス *********"
    Const LISTNAME As String = "{4e78c371-9ff0-410d-86a5-b78499091369}"
    Const VIEWNAME As String = "{C3BD0F82-6BCD-45EF-B43E-DCFEA78067B0}"
 
 
    strSPServer = "http://" & SERVER & "/_vti_bin"
 
    Set objMyList = ActiveSheet.ListObjects.Add(xlSrcExternal, Array(strSPServer, LISTNAME, VIEWNAME), False, xlYes, Range("A1"))
 
(問題点)
 ・先頭フォルダのファイルリストは取得できたのですが、サブフォルダはURLを指定しても
  エラーになりました
 ・原因はLISTNAMEではないかと思いますが、ルートフォルダのLISTNAMEしかわからない状況です
 
  以上、よろしくお願いいたします

回答
投稿日時: 20/05/15 22:15:44
投稿者: simple

回答ではありません。
 
ヘルプにそのまま載っている手法のようなので、可能は可能なんでしょうけど、
たしかにListNameのあたりの設定方法が不明ですね。
私のところでは何分環境が整わないので実験も出来ない状態です。
 
もし、ListObjectsのAddメソッドという条件をはずせるなら、
直接FSOを使って取得することはできるようですね。
https://stackoverrun.com/ja/q/251320
が参考になると思います。
 
まあ、それは別途できています、ということかと思いますが。

トピックに返信