jsonファイルをvba wordで読み込み、jsonキー値を配列に格納する方法は？

-2

{ 
    "IOP": { 
     "journal": ["�ref_auSurname", "�ref_auGivenName", "�ref_auCollab", "�ref_etal", "�ref_titleArticle", "�ref_titleJournal", "�ref_pubdateYear", "�ref_volumeNumber", "�ref_issueNumber", "�ref_supplement", "�ref_pageFirst", "�ref_pageLast", "�ref_accessDate", "�ref_URL"], 
     "book": ["�ref_auSurname", "�ref_auGivenName", "�ref_etal", "�ref_titleBook", "�ref_edition", "�ref_publisherLocation", "�ref_publisherName", "�ref_pubdateYear"] 
      }, 
    "LWW": { 
     "journal": [�ref_auSurname", "�ref_auGivenName", "�ref_etal"], 
     "book": [] 
      } 
}

編集：以下のコメントからコード：JSONコードの上jsonファイルをvba wordで読み込み、jsonキー値を配列に格納する方法は？

Dim JsonTS As TextStream 
Dim JsonText As String 
Set JsonTS = FSO.OpenTextFile("C:\Users\9105122\Desktop\refspec.json", ForReading) 
JsonText = JsonTS.ReadAll 
Set JsonParse = JsonConverter.ParseJson(JsonText)

は私の入力ファイルです。 JsonConverter（Tim HallのVBA-JSONコンバータ）をIOP - > Journalの "]"まで実行すると、IOP - > Journalの "。"の後に値がコレクションに格納されます。私は "間違った数の引数または無効なプロパティの割り当て"というエラーを受け取りました。私はIOP - > Bookの内容を読むことができません。

出典

2017-08-21 Ranjetha Palanisamy

これまでに何を試しましたか？特定の問題を教えてくれることなく、具体的な助けをすることはできません。以下の一般的な答え。 –

アレイはどのように見えますか？各要素にはどのような値が含まれますか？ –

Tim HallからVBA-JSONコンバータを見てみましょう。それは本当に素晴らしいです：https://github.com/VBA-tools/VBA-JSON – FunThomas

アレイにDSVを割り当てるには、Array()ファンクションまたはSplit()ファンクションを使用します。

出典

2017-08-21 11:38:29

Dim JsonTS TextStreamとして Dim JsonText As String Set JsonTS = FSO.OpenTextFile（ "C：\ Users \ 9105122 \ Desktop \ refspec.json "、ForReading） JsonText = JsonTS.ReadAll配列に値を格納する方法を教えてください... –

コメントにコードを投稿しないで、代わりにコードで質問を更新してください。上記の 'Array（）'関数のドキュメントを読んで、それに応じて文字列をフォーマットし、それを関数のパラメータとして使用してください。 –

質問に編集してコメントを追加しました。 –

jsonファイルをvba wordで読み込み、jsonキー値を配列に格納する方法は？

答えて

関連する問題