SharePointOnlineのRestAPIをVBAにて実行する方法

Question

SharePointOnlineのリストのデータを一括登録するためのマクロを作成したく、RestAPIを使用しようと思っています。

試しに以下のようなコードを作成したのですが、うまく動作しないため、アドバイスをお願いします。

※ ここでは簡易的にタイトルとメモの二つの列のリストで試しています。

※ VBA-JSONなど必要な前準備は完了しています。

※ 一括登録用ですが、一旦テストとして1行追加できるかを試したところで躓きました。

具体的なコード例：

Function SendHttp(ByVal Title As String, ByVal Memo As String)

 Dim JsonObject As Object

 Set JsonObject = New Dictionary          

 Dim objHTTP As Object     

 Set objHTTP = CreateObject("msxml2.xmlhttp")

 JsonObject.Add "Title", Title

 JsonObject.Add "Memo", Memo 

 objHTTP.Open "POST", "サイトURL（ここは可変）", "false"

 objHTTP.send JsonConverter.ConvertToJson(JsonObject)

End Function

Sub Test()

      Call SendHttp("ああああ", "iiiiiiiiiiiii")      

End Sub

Answer 1

> うまく動作しないため

どのように「うまく動作しない」のでしょう？ それが分からなければアドバイスも難しいですよ。

載せられているコードだとそもそも認証部分がまるっと無いので動作しないとは思いますが。

参考：Office 365 APIをVBAから呼び出す(3) | 初心者備忘録 (ka-net.org)

また VBA 開発 / SharePoint 開発に関する話題はこのフォーラムではなく以下のいずれかで質問された方が良いでしょう。

• Msdn フォーラム (microsoft.com)
• office-vba-dev - Microsoft Q&A
• sharepoint-dev - Microsoft Q&A