私は、スパイダーでスパイダーを構築しました。私はそれを実行し、以下に示すようにjsonファイルに出力します。次に、VBAでclsJsonParserを使用し、次のコードを使用しています。しかし、私はelement.item( "newstxt")の3265エラー "このコレクションには見つかりません"を取得しています。 element.item( "newstitle")はうまく動作します。何がうまくいかないのですか?それは私のVBAコード、または私のjsonファイルのフォーマットですか?VBA JsonParser clsJsonParserが機能しません
Public Sub JSONImport()
Dim coll As Collection
Dim json As New clsJSONparser
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim element As Variant
Dim FileNum As Integer
Dim DataLine As String, jsonStr As String
' READ FROM EXTERNAL FILE
FileNum = FreeFile()
Open "C:\Users\Philippe\sfo\unepinquiry\items.json" For Input As #FileNum
' PARSE FILE STRING
jsonStr = ""
While Not EOF(FileNum)
Line Input #FileNum, DataLine
jsonStr = jsonStr & DataLine & vbNewLine
Wend
Close #FileNum
Set db = CurrentDb
Set rs = db.OpenRecordset("News_1", dbOpenDynaset, dbSeeChanges)
Set coll = json.parse(jsonStr)
For Each element In coll
rs.AddNew
rs!newstitle = element.item("newstitle")
rs!newstxt = element.item("newstxt")
rs.Update
Next
Set element = Nothing
Set coll = Nothing
End Subの
[{ "newstxt":[ "2016年6月21日には、G20グリーン・ファイナンス研究会の第4回会合は、アモイで開催された会議が共同でホストされました。 G20諸国の代表者、招待された加盟国および国際機関が参加し、G20グリーン・ファイナンス・シンセシス・レポートに関する原則的な議論と合意を得た。 6月のG20財務大臣および中央銀行代理人のアモイ会合を検討し、7月のG20財務大臣およびCe 」、「newstitle」:「G20グリーンファイナンス研究会の第4回会議が厦門で終了\ n」}、 {"newstxt":[ムンバイ、2016年4月29日、\ u00a0-インドは追加的な低コストの長期的な資本の動員を必要とする包括的で持続可能な開発の野心的な目標を設定する。国連環境計画(UNEP)とインド商工会議所連盟(FICCI)が最近発表した新しい報告書では、グリーン資産のために民間資本を誘致するための革新的なアプローチを既に導入していることが示されており、インドではこのプロセスを深めるための手順 "]、『newstitle。』:『\ n新規報告書は、』インドは持続可能な財政の\ nをスケールアップする方法を示し}]