Google 翻訳API Jsonの抜き出し

質問

お世話になります。
自分では解決できなかったのでお知恵をお借りしたいです。
google翻訳APIで下記のデーターが帰ってきますが、下記結果の
「これはペンです。」の部分を抜き出したいのですが、どの
ようにしてもエラーがでます。
http://d.hatena.ne.jp/so_blue/20090326/1238084885
上記を参考にがんばってみましたがうまくいきません。
お知恵をお借りできれば幸いです
エクセル2002のVBAにてプログラムしております。

{
"data": {
"translations": [
{
"translatedText": "これはペンです。"
}
]
}
}

回答No.1

BarcodeMaster · ベストアンサー

JSONなんて初めて聞いたんですが、調べてチャレンジしてみました♪
以下のサブルーチンで取得できるようですが、いかがでしょうか？

Sub JSON_Parse()

Dim objSc As Object
Dim strFunction As String

Dim strJSON As String
Dim objJSON As Object
Set objSc = CreateObject("ScriptControl")

objSc.Language = "JScript"
strFunction = "function jsonParse(s) { return eval('(' + s + ')'); }"
objSc.AddCode strFunction

strJSON = "{""data"":{""translations"":[{""translatedText"":""これはペンです。""}]}}"

Set objJSON = objSc.CodeObject.jsonParse(strJSON)
Set objJSON = CallByName(objJSON, "data", VbGet)
Set objJSON = CallByName(objJSON, "translations", VbGet)
For Each j In objJSON
Call MsgBox(CallByName(j, "translatedText", VbGet))
Next

End Sub

お礼

おお!!凄いできました!!
有り難うございました。本当にたすかりました。