excel - Foursquare データを Excel に

Question

Foursquare API 会場検索の結果を単純なテーブルとして Excel に取得しようとしています。ここでこのリクエストを使用し、結果を .json で終わるファイルに保存します。次に、いくつかのオンラインコンバーターを使用して、Excel で読み取れるように CSV/XML に変更しようとしました。ただし、実際に結果を生成するための Web サイトを 1 つしか取得できず、残念ながら有料です。このクエリの結果をより簡単に Excel テーブルに取得する方法はありますか?

Answer 1

応答から個々の要素を抽出するために使用できるアプローチの 1 つを次に示します。ただし、各プロパティのスクリプト コントロールで「アクセサ」関数を作成する必要があることを意味します。

Sub TestIt()

    Dim json As String, x As Long, num As Long

    json = CreateObject("scripting.filesystemobject"). _
           opentextfile("C:\_Stuff\test\json.txt").readall()

    'Debug.Print json

    Dim s As Object, jsObj As Object
    Set s = CreateObject("ScriptControl")
    s.Language = "JScript"

    s.ExecuteStatement "var obj = null;" & vbCrLf & _
         "function JSON(s){obj=eval('('+s+')');}" & vbCrLf & _
         "function numVenues(){return obj.response.venues.length;}" & vbCrLf & _
         "function venueId(i){return obj.response.venues[i].id;}"

    s.Run "JSON", json

    num = s.Run("numVenues") 'how many venues
    Debug.Print num
    For x = 0 To num - 1
        Debug.Print s.Run("venueId", x)
    Next x


End Sub