MSAccessとGoogle Script Appsとの連携

Question

したいこと

MSAccessとGoogle Script Appsで連携の試行錯誤中、どうしてもわからない箇所があったため、投稿させていただきます。
使用コードは今回はVBAを使用しています。受け取り側ではGASを用いていますが、エラーとなる部分がないと思い、投稿していません。
状況としましては、MSAccess(VBA)側からJsonを用いてGoogle Script Appsへと送信中、エラーが起きてしまいます。

したいこととしましてはこちらのスクリプトを参考にしてAccessとGスプレッドシートの連携をしているところでした。しかしながら、エラーが出てしまい、いろいろな方法を試しましたが解決に至らなかったため、質問させていただきました。

Jsonファイルにつきましては初心者のため、知恵をお貸しいただけると幸いです。

###エラー文章

Unexpected token  in JSON at position 58969

###エラーは出ないが、Jsonでエラーになるコード

Private Function ExecuteGASFunction(ByVal access_token As String, _
                                    ByVal script_id As String, _
                                    ByVal function_name As String, _
                                    ByVal parameters As String, _
                                    Optional ByVal dev_mode As String = "false") As String
                                    
  'Google Apps Script Execution API呼び出し
  Dim ret As Variant
  Dim url As String
  Dim Json As String
  Dim dat As Variant
  Dim jsonstr As Object
  
  Debug.Print parameters
 
  'JSONをパースする用の変数
  Dim doc, jsn
  'HTMLDocumentを取得
  Set doc = CreateObject("HtmlFile")
  'scriptタグを追加
  doc.Write "<script>document.JsonParse=function (s) {return eval('(' + s + ')');}</script>"
  
  '変数を初期化
  ret = ""
  dat = "{'function':'" & function_name & "','parameters':'" & parameters & "','devMode':" & dev_mode & "}"
  url = "https://script.googleapis.com/v1/scripts/" & script_id & ":run"
  
  Debug.Print url

'========================================================================
  
  'POST通信でAPIを叩いてデータを取得
  With CreateObject("WinHttp.WinHttpRequest.5.1")
    .Open "POST", url, False
    .setRequestHeader "Content-Type", "application/json; charset=UTF-8"
    .setRequestHeader "Authorization", "Bearer " & access_token
    .send dat
    
    '返ってきた値をもとにデータを処理
    Select Case .status
      Case 200
        'JSONデータを取得する
        Json = .responseText
 
        'パース関数でJSONオブジェクトを取得
        Set jsn = doc.JsonParse(Json)
 
        ret = jsn.response.result
    End Select
  End With

'========================================================================
  
  '値を返す
  ExecuteGASFunction = ret
End Function

---

##試したこと
『===』内が間違っているのかと考え、オブジェクトを【WinHttp.WinHttpRequest.5.1】→【msxml2.xmlhttp】へ変更しましたが、特に変わることがなかったです。
エラーよりトークンエラーの可能性があるかと考え、トークンを再取得・再配置しましたが、これも変化がありませんでした。

Answer 1

Unexpected token in JSON at position 58969

エラー箇所を具体的に調べると良いのでは？

【トレード(交換)掲示板 文字数カウント】

Comments

[k_code]

提示していただいたURLにて空白文字がないかなど確認したうえでもう一度走らせてみましたが、やはりここでも同じエラーコードが出ます。
調べてみたものの、やはりエラーコード58969に対する記述がなく...
Json・IEコントロールに関して私は全くと言っていいほど知識がないので回答をすべて任せることになって、teratailの意向に反する可能性があるのですが、送るデータが間違っている可能性はないのでしょうか？
もしパブリック変数を開示する必要があれば要所隠しつつ質問させていただく予定です。
どうか知恵をお貸しいただければと思います...

[sazi]

58969はエラーコードではなく、パース対象文字列の58969文字目という事だと思います。

[k_code]

ご回答くださりありがとうございます。
どうやらsazi様のいう通り、文字数であっているようです。
GAS側のログを見てみると、『Logging output too large』とのことでしたのでレコード数がキャパオーバーしているようでした。
ですのでもう少し分割して、コードを書いていこうかと思います。
ここまでお付き合いくださりありがとうございました。
おかげさまで私のしたいこともできそうです。