アバターtakebayashi

ご確認ありがとうございました。

>401 なので権限がないのかと思います。
確認致します。
ご教示ありがとうございました。

>ぱっとみAPI関係なく実行するプログラムが出しているエラーかと思います。
>これだけでは判断は難しいのですが、実装やリクエストの詳細を教えていただけるとわかるかもしれません。
以下ソースコードの抜粋です。
リクエスト先のエンドポイントは「https://api.freee.co.jp/api/1/manual_journal」です。

■振替伝票の貸借1行目生成
details = _
 “{” & _
  “””entry_side””:””” & entrySide & “””,” & _
  “””tax_code””:” & taxCode & “,” & _
  “””account_item_id””:” & accountItemId & “,” & _
  “””amount””:” & amount & “,” & _
  “””vat””:” & vat & “,” & _
  “””partner_id””:” & partnerId & “,” & _
  “””item_id””:” & itemId & “,” & _
  “””section_id””:” & sectionId & “,” & _
  “””tag_ids””:[” & tagIds & _
 “]}”

■振替伝票の貸借2行目以降生成(100行まで)
details = details & _
 “,{” & _
 “””entrySide””:””” & .Cells(t, 5) & “””,” & _
 “””taxCode””:” & .Cells(t, 6) & “,” & _
 “””accountItemId””:” & .Cells(t, 7) & “,” & _
 “””amount””:” & .Cells(t, 8) & “,” & _
 “””vat””:” & .Cells(t, 9) & “,” & _
 “””partnerId””:” & .Cells(t, 10) & “,” & _
 “””itemId””:” & .Cells(t, 11) & “,” & _
 “””sectionId””:” & .Cells(t, 12) & “,” & _
 “””tagIds””:[” & .Cells(t, 13) & _
 “]}”

■振替伝票のAPI用JSON生成
accountItemsRequestBody = _
 “{” & _
  “””company_id””:” & companyId & “,” & _
  “””issueDate””:” & issueDate & “,” & _
  “””adjustment””:” & adjustment & “,” & _
  “””details””:[” & _
  details & _
 “””]}”

■API送信処理
With msxml2Object
 .Open “POST”, ACCOUNT_ITEMS_REQUEST_URL, False
 .setRequestHeader “Authorization”, “Bearer ” & AccessToken
 .setRequestHeader “Content-Type”, “application/json”
 .send JsonConverter.ConvertToJson(accountItemsRequestBody)   ※
エラーは※の行で発生しています。

また、生成されたJSONは以下となります。
値はサンプル値に変えています。
{“company_id”:3333333,”issueDate”:”2020-04-01″,”adjustment”:,”details”:[{“entry_side”:”debit”,”tax_code”:1010,”account_item_id”:1009,”amount”:1632,”vat”:163,”partner_id”:22222222,”item_id”:1010,”section_id”:1162,”tag_ids”:[12064734]},{“entrySide”:”credit”,”taxCode”:1000,”accountItemId”:1157,”amount”:1795,”vat”:0,”partnerId”:11111111,”itemId”:1037,”sectionId”:1162,”tagIds”:[12064734]}]}

以上、ご確認の程よろしくお願いいたします。