エクセルデータからレコード（サブテーブル持ち）を追加するためのJSONデータ作成について

kintone カスタマイズ
1

エクセルからKintoneAPIを使用してレコード（サブテーブル持ち）を追加させようとしております。サブテーブルの内容だけがうまく反映されません。

Jsonはうまく出されておりJson形式チェッカーでもValidJsonと出ます。

どなたかご教授よろしくお願い致します。

 

★JSON作成関数コード（JsonConverterライブラリ使用）

Function MakeJson(ByVal r As Integer, ByVal c As Integer) As Object
Dim ws As Worksheet
Set ws = Sheets(“Sheet2”)

Dim ReqBody As Object
Set ReqBody = New Dictionary

ReqBody.Add “app”, 7
ReqBody.Add “record”, New Dictionary
ReqBody(“record”).Add “Manage_No”, New Dictionary
ReqBody(“record”).Add “Project_No”, New Dictionary
ReqBody(“record”)(“Manage_No”).Add “value”, ws.Range(“a2”).Value
ReqBody(“record”)(“Project_No”).Add “value”, ws.Cells(2, 2).Value
ReqBody(“record”).Add “Table”, New Dictionary
ReqBody(“record”)(“Table”).Add “value”, New Collection

 

Dim Count_r As Integer '2行目から取得します

Dim Table_Value As Collection
Set Table_Value = New Collection
Dim Table_Row As Object

For Count_r = 2 To r - 1
Set Table_Row = New Dictionary

Table_Row.Add “Item_No”, New Dictionary
Table_Row(“Item_No”).Add “value”, ws.Cells(Count_r, 2).Value
Table_Row.Add “Item_Name”, New Dictionary
Table_Row(“Item_Name”).Add “value”, ws.Cells(Count_r, 3).Value
Table_Row.Add “Result”, New Dictionary
Table_Row(“Result”).Add “value”, ws.Cells(Count_r, 6).Value

ReqBody(“record”)(“Table”)(“value”).Add Table_Row
Next Count_r

Set MakeJson = ReqBody
End Function

★出力JSON

{
“app”: 7,
“record”: {
“Manage_No”: {
“value”: “S-1111-2”
},
“Project_No”: {
“value”: 1
},
“Table”: {
“value”: [{
“Item_No”: {
“value”: 1
},
“Item_Name”: {
“value”: “\u571F\u58CC\u691C\u67FB\uFF13”
},
“Result”: {
“value”: “\u571F\u58CC\u9805\u76EE\uFF11”
}
},
{
“Item_No”: {
“value”: 2
},
“Item_Name”: {
“value”: “\u571F\u58CC\u691C\u67FB\uFF12”
},
“Result”: {
“value”: “4.5\u4EE5\u4E0B”
}
},
{
“Item_No”: {
“value”: 3
},
“Item_Name”: {
“value”: “\u571F\u58CC\u9805\u76EE\uFF11”
},
“Result”: {
“value”: “4.5\u4EE5\u4E0B”
}
}
]
}
}
}

★追加レコードの内容

|“Manage_No”|(SubTable)          |“ProjectNo”
     |“Item_No”|“Item_Name”|“Result”|
     | １         | アイテム１  |結果１  |
     | ２         | アイテム２  |結果２  |
     | ３        | アイテム３  |結果３  |
                        ・
                        ・ ←SubTableの行は読み込むエクセル行によって決まる
                        ・

2

はじめましてー。ソニックガーデンの赤座と言います。

（もしかして苗字一緒ですか？？？）

 

JSONみましたが、Tableオブジェクトのvalueが一つ足りないですね。

"Table": {
"value": [
{
"Item_No": {

今はこうなってますが、

"Table": {
  "value": [
    {
      "value": {
        "Item_No": {

こんな風にしないといけません。

各行にvalueが含まれるJSONになるように、修正してみてください。

 

参考： https://developer.cybozu.io/hc/ja/articles/360022502911

 

末端のフィールド含めるとvalueが3つも続くので分かりにくいですよねー。

僕も正直この冗長な仕様は好きじゃないんですが、

真ん中のvalueは「更新時に行IDを指定する」という目的のために必要なのです。

3

赤座さん

ありがとうございます！ドンピシャでした！！

（苗字は残念ながら違います、こちらgmailアカウント適当に作った時のがそのまま表示されただけです、、、m(_ _ )m）

for文を下記のように書き換えたらいけましたっ。

 

>真ん中のvalueは「更新時に行IDを指定する」という目的のために必要なのです。

⇒valueがそれぞれの行始まりに必要な理由も含めて納得しました。

冗長ですが、確かに必要な物なんですねぇ～。

おかげさまで、HTTPリクエストからサブテーブルを柔軟に作成する事ができるようになりましたっ

ありがとうございました！

 

★改変箇所（for文）

For Count_r = 2 To r - 1
Set Table_Row = New Dictionary

Table_Row.Add “value”, New Dictionary

Table_Row(“value”).Add “Item_No”, New Dictionary
Table_Row(“value”)(“Item_No”).Add “value”, ws.Cells(Count_r, 2).Value
Table_Row(“value”).Add “Item_Name”, New Dictionary
Table_Row(“value”)(“Item_Name”).Add “value”, ws.Cells(Count_r, 3).Value
Table_Row(“value”).Add “Result”, New Dictionary
Table_Row(“value”)(“Result”).Add “value”, ws.Cells(Count_r, 6).Value

ReqBody(“record”)(“Table”)(“value”).Add Table_Row
Next Count_r

4

うまくいったようで良かったです！

苗字は残念ですが、適当に「akaza」という単語を選んでくださってありがとうございますw

（同姓の人に普段まず出会わないので、かなりときめいてしまいました・・・w）