回答編集履歴
2
修正
answer
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
|
+
idで分割してます。
|
|
1
2
|
```VBA
|
|
2
3
|
Dim a As Variant
|
|
3
|
-
a = Split(
|
|
4
|
+
a = Split(レスポンス内容, """id"":""")
|
|
4
5
|
Debug.Print UBound(a)
|
|
5
6
|
|
|
6
7
|
Dim id As Long
|
1
追加
answer
CHANGED
|
@@ -1,6 +1,9 @@
|
|
|
1
|
-
イメージ合いますでしょうか。
|
|
2
1
|
```VBA
|
|
3
2
|
Dim a As Variant
|
|
4
|
-
a = Split(jsn.result, """id""")
|
|
3
|
+
a = Split(jsn.result, """id"":""")
|
|
5
4
|
Debug.Print UBound(a)
|
|
5
|
+
|
|
6
|
+
Dim id As Long
|
|
7
|
+
id = Val(a(1))
|
|
8
|
+
Debug.Print id
|
|
6
9
|
```
|