さまざまなJSONオブジェクトに優れています

Question

私はこのExcelテーブルを持っています：

country     year    1       2       3       4

Netherlands 1970    3603    4330    5080    5820
Netherlands 1971    3436    4165    4929    5693
Netherlands 1972    3384    4122    4899    5683
Sweden       1970    1479    1963    2520    3132
Sweden       1971    1497    1985    2547    3163
Sweden       1972    1419    1894    2445    3055

2つのJSON形式で実験したいと思います。また：

data = [
   Netherlands : {
      1970 : [3603, 4330, 5080, 5820],
      1971 : [...],
   },
   Sweden : {
      1970 : [...]
   },
]

または、ヘッダーをx値として1,2,3,4を使用します。

data = [
   Netherlands : {
      1970 : [{x: 1, y: 3603}, {x: 2, y: 4330}, {x: 3, y: 5080}, {x: 4, y: 5820}],
      1971 : [...],
   },
   Sweden : {
      1970 : [...]
   },
]

Excelから自分の好みのJSON形式に簡単に入手するにはどうすればよいですか？

この変換のための具体的な方法と、優れたもののような一般的なデータ変換ツールを提案してください MRデータコンバーター と Google Refine.

ありがとうございました！

Answer 1

ここからExcelデータをJSONに変換するクラスのセットをダウンロードできます。 http://ramblings.mcpher.com/home/excelquirks/downloadlist. 。あなたが望むプロジェクトは「データ操作クラス」です。

これらのクラスを使用して、このコード

Option Explicit
Public Sub mainExample()
    Dim dSet As cDataSet

    Set dSet = New cDataSet
    With dSet
        .populateData Range("data!$a$1"), , , , , , True

        If .Where Is Nothing Then
            MsgBox ("No data to process")
        Else
            MsgBox .jSonObject
        End If
    End With

End Sub

データからこれを生成するために必要なのはすべてです。

{  "data": {
        "country": "Sweden",
        "year": "1972",
        "1": "1419",
        "2": "1894",
        "3": "2445",
        "4": "3055"
  }
}

この記事がどのように機能するかについてこの記事を読んだ後、より複雑なことをするか、出力を調整することができます。 http://ramblings.mcpher.com/home/excelquirks/recursionlink/hiding-data-in-excel-Objects

ブルース

Answer 2

私は時々、単純な文字列の連結を使用してSQLステートメントを生成するだけで、次のようなことができると思います。

=A2 + ": { " + A3 + ", " + A4 + ", " + A5 + ", " + A... +"}"

内部に包むよりも data = [], 、または派手な式を使用します。2番目の部分では、$ a1で行をロックする必要があります