Как экспортировать Excel в JSON в определенном формате

Question

Я использую следующие коды:

Private Sub CommandButton1_Click()   

Dim excelRange As Range

Dim jsonItems As New Collection

Dim jsonDictionary As New Dictionary

Dim jsonFileObject As New FileSystemObject

Dim jsonFileExport As TextStream

Dim i As Long

Dim cell As Variant


Set excelRange = Sheet1.Cells(3, 3).CurrentRegion

For i = 4 To excelRange.Rows.Count

    jsonDictionary("ID") = Sheet1.Cells(i, 1)

    jsonDictionary("Pass") = Sheet1.Cells(i, 2)

    jsonDictionary("MN") = Sheet1.Cells(i, 3)

    jsonDictionary("Email") = Sheet1.Cells(i, 4)

    jsonItems.Add jsonDictionary

    Set jsonDictionary = Nothing

Next i

MsgBox (JsonConverter.ConvertToJson(jsonItems, Whitespace:=0))

Set jsonFileExport = jsonFileObject.CreateTextFile(Application.GetSaveAsFilename(fileFilter:="Text Files (*.json), *.json"), True)

jsonFileExport.WriteLine (JsonConverter.ConvertToJson(jsonItems, Whitespace:=3))

Я получил файл JSON в следующем формате:

[
   {
      "id": "AA2478FV",

      "PAss": "MAAS",

      "MN": "9878965421",

      "email": "",Abc@123
}]

Но мне нужен JSON в следующем формате:

{"b2b deatils":[{"id":"01AF2578T","pass":"N","MN":8789755654,"furdetails":[{"nameorg":

[{"emp":1,"itm_det":{"recmount":0}}]}]

Как я могу получить это?