回答編集履歴
1
変数型指定修正
answer
CHANGED
|
@@ -3,10 +3,10 @@
|
|
|
3
3
|
Set jsn = doc.jsonParse(strData)にてJSONオブジェクトに変換した後
|
|
4
4
|
|
|
5
5
|
```VBA
|
|
6
|
-
Dim result As
|
|
6
|
+
Dim result As Object
|
|
7
|
-
Dim SalseList As
|
|
7
|
+
Dim SalseList As Object
|
|
8
|
-
Dim cnt1 As
|
|
8
|
+
Dim cnt1 As Long
|
|
9
|
-
Dim cnt2 As
|
|
9
|
+
Dim cnt2 As Long
|
|
10
10
|
Dim i As Long
|
|
11
11
|
Dim j As Long
|
|
12
12
|
'resultの配列数取得
|