12,665
回編集
差分
ナビゲーションに移動
検索に移動
----
----
----
→ライブラリ
*[[Perl VBのプロパティプロシージャを生成]]
*[[Excel VBA 最初の空白でないセルを返す]]
==ライブラリ=====ライブラリWeb API (JSON)の取得===
====[https://github.com/VBA-tools/VBA-JSON VBA-JSON]====
*[https://github.com/VBA-tools/VBA-JSON VBA-JSON]
====[https://github.com/VBA-tools/VBA-Web VBA-WEB]====
*[https://github.com/VBA-tools/VBA-Web VBA-WEB]
====[https://github.com/VBA-tools/VBA-Dictionary/releases VBA-DICTIONARY]====
*[https://github.com/VBA-tools/VBA-Dictionary/releases VBA-DICTIONARY]
<pre>
Sub JsonTest()
Dim url As String
Dim wbClient As New WebClient
url = "https://xxxxxxxxxx"
Dim Response As WebResponse
Set Response = wbClient.GetJson(url)
Dim jsonText As String
jsonText = Response.Content
Debug.Print jsonText
Dim Json As Object
Set Json = JsonConverter.ParseJson(jsonText)
Debug.Print JsonConverter.ConvertToJson(Json)
Debug.Print JsonConverter.ConvertToJson(Json, Whitespace:=2)
Debug.Print Json("_fieldsProto")("imageURL")("stringValue")
End Sub
</pre>
====部品====
© 2006 矢木浩人
