我正在尝试将 JSON 文件导入到 MS Access 表中。我在网上查了一下，发现这个堆栈溢出链接说明了这一点。自动解析 JSON feed 到 MS Access 我已复制并粘贴此字符串中的代码，并修改它以提取我的 JSON 文件，并且该代码似乎确实解析了该文件。但是，我在将解析文件的所有元素放入 Access 表时遇到问题。它似乎只引入不属于对象或数组的元素。换句话说，NPI 元素没有包含在方括号或大括号中，因此导入成功。请参阅下面的代码和 JSON 数据结构。
Private Function JSONImport()
Dim db As Database, qdef As QueryDef
Dim FileNum As Integer
Dim DataLine As String, jsonStr As String, strSQL As String
Dim P As Object, element As Variant
Set db = CurrentDb
' READ FROM EXTERNAL FILE
FileNum = FreeFile()
'Open "P:\PROF REIMB\PROF REIMB\HIX\CY 2021 Analysis\Centene\JSON\provider_facility - jun 52020.json"
For Input As #FileNum
' PARSE FILE STRING …