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