Fourstquare 데이터를 엑셀로

Question

Four Square API 회장 검색의 결과를 간단한 테이블로 얻으려고합니다. 이 요청을 사용하여 here을 작성하고 결과를 .json 결말이있는 파일로 저장합니다. Ive는 여러 온라인 변환기를 사용하여 CSV/XML로 변경하여 Excel에서 읽을 수 있도록 시도했습니다. 그러나, 나는 실제로 결과를 산출하기 위하여 단 하나 웹 사이트를 얻고, 유감스럽게도 책임진다. 이 쿼리의 결과를 Excel 테이블에보다 쉽게 ​​가져올 수있는 방법이 있습니까?

Answer 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