COMãªãã¸ã§ã¯ãã®ScriptControlã使ãã¨ãVBAä¸ã§JScriptãå®è¡åºæ¥ã¾ããã£ã¦äºã¯ãVBAã§ãJSONãã¡ã¤ã«ã®ãã¼ã¹ãåºæ¥ãããããï¼ã¨åã ããæã£ã¦ãã®ã試ãã¦ã¿ãã¨ãããæåæããããããç°¡åã«åºæ¥ã¾ããã ã½ã¼ã¹ Option Explicit Sub VBA_de_JSON() Const cnsJSONString As String = "{ ""familyname"":""yamada"", ""personalname"":""tarou"" }" Dim sc As Object Dim strFunc As String Dim objJSON As Object Set sc = CreateObject("ScriptControl") sc.Language = "JScript" 'jsonã«ãã¼ã¹ããé¢æ°æåå strFunc = "
{{#tags}}- {{label}}
{{/tags}}