Odata APIをVBA使ってjson式に変換の時エラー（10001

こんにちは、
現在、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 Object
15    Set jsonObj = JsonConverter.ParseJson(httpReq.responseText)
16
17End Sub

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

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

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

sazi

2023/01/24 08:04

あまり詳しくはありませんが、XMLHTTP60とMSXML2.XMLHTTPのどっちを使うんですか？古い環境でない限り、XMLHTTP60の方だと思いますけど。 MSXML2.XMLHTTPで作り直しているのも、エラーになるから何処からか探してきて張り付けただけのような気もしますし。

JJ_001

2023/01/24 08:20

saziさん、コメントありがとうございます。すみません、私は正式にCodingを学んだことがなく、最近興味ができて勝手にネットで張り付けたものです。。古い環境ではないので、XMLHTTP60になると思いますが、その場合、「Set httpReq = CreateObject("XMLHTTP60")」なるべきですか？上記のように書くと、エラーになりますね。。。大変お手数ですが、教えて頂ければ幸いです。。！m(_ _)m