VBAでJSONを取得して特定の値のみを取り出したい

Question

こんばんは。

現在、エクセルのマクロで、Google短縮URLAPIから特定の値のみを取りだそうと試みているのですが失敗してしまいます。

'標準モジュール
Public Function GetShortenUrlAnalyticser(ByVal TargetURL As String) As String
'Google URL Shortener APIを使って短縮URLを取得
  Dim js As String
  Const api As String = "api-key"
  Const analy As String = "analytics_clicks"
   
  With CreateObject("MSXML2.XMLHTTP")
    .Open "GET", "https://www.googleapis.com/urlshortener/v1/url?key=" & api & "&shortUrl=" & TargetURL & "&projection=" & analy, False
    .send
    js = .responseText
  End With
  GetShortenUrlAnalyticser = JSONParser(js)
End Function

Private Function JSONParser(ByVal data As String) As String
    Dim sc As Object 'object格納
    Dim func As String 'jsfunの格納
    
    Set sc = CreateObject("ScriptControl")
    
    sc.Language = "JScript"
    
    func = "function getValue(value){ return JSON.parse(value).analytics.allTime.shortUrlClicks}"
    sc.AddCode func
    JSONParser = sc.CodeObject.getValue(data)
End Function

このような感じで、json自体は取得ができているのをイミディエイトウィンドウから確認済みです。
JSONParserを実行するとおかしくなっているみたいで。

ご教授よろしくお願いします。

Answer 1

以下のURLを見ると使えないキー値があるようです。
私自身は、Excel VBAでJSONはやったことがないのでこれ以上の詳しいことはわかりません。

VBAでJSONを扱う

また、以下のURLでは「VBAでは死ぬほど大変だからやめたほうがいい」とも書いてありました。

[VBA]VBAでjsonをパースする

参考になれば幸いです。