Odata APIをVBA使ってjson式に変換の時エラー(10001 - JSON parse error)

こんにちは、
現在、VBAを利用してSAP Odata APIを取得、それをjson式に変換したいと思いますが、
以下のエラーが出ています。。。

vba

1Err.Raise 10001, "JSONConverter", json_ParseErrorMessage(JsonString, json_Index, "Expecting '{' or '['")

私のVBAコードは以下になります。

vba

1Sub GetData()2 3 Dim httpReq As New XMLHTTP60 4 Dim strURL As String 5 strURL = "https://api55.sapsf.eu/odata/v2/EmpJob?$top=10"6 Set httpReq = CreateObject("MSXML2.XMLHTTP")7 8 httpReq.Open "GET", strURL, False, "sfadmin@SFPART066783", "******"9 10 httpReq.send 11 12 Debug.Print httpReq.responseText 13 14 Dim jsonObj As Object15 Set jsonObj = JsonConverter.ParseJson(httpReq.responseText)16 17End Sub

jsonコンバータの方で問題があるようですが、
中々ネットでも正解を見つけれませんでしたので皆さんにアドバイスを頂きたいです。

補足として、関係ないかもしれませんがSAP社のSuccessfactorsというモジュールからデータを取得したいです。
XML形ではデータを取りましたが、そのXMLをjson式で変更しようとするとエラーになります。。。

こちらのURLはデモ環境になっており、basic Authを使っております。(PWは***に表示しました。)
全然codingは初心者なので間違えたコードなどがございましたらご教示頂ければ幸いです。

コメントを投稿

0 コメント