Excel to JSON（带有VBA）土耳其语字符问题

Question

我正在使用VBA将Excel表转换为Json。
但是，当我查看输出的Json文件时，土耳其字符看起来并不流畅。

例如，

{"value1":true,"value2":true,"value3":false}

我该如何解决？

您可以在下面找到我的VBA代码：

in Excel table, "HAYRETTIN YILMAZ"
in Json, HAYRETTÝN YILMAZ

in Excel table, "HÜSEYİN DURAK"
in Json, HÜSEYÝN DURAK

@PeterT，由于我们公司的政策，我不想使用JsonConverter。因此，我在上面编写了代码。当我在Json中使用Excel的代码时，“ HAYRETTIN YILMAZ”似乎是“HAYRETTÝNYILMAZ”。

此外，您的第三个项目已更改。 “HÜSEYİNDURAK”->“ H \ u00DCSEY \ u0130N DURAK”。 JsonConverter也有同样的问题。

我该如何解决？

谢谢。

Answer 1

我使用JsonConverter进行了测试，并获得了以下结果。这与您得到的不同吗？

Option Explicit

Sub deneme()
    Dim topLevel As Dictionary
    Set topLevel = New Dictionary

    topLevel.Add "Item1", Cells(1, 1).Value
    topLevel.Add "Item2", Cells(1, 2).Value
    topLevel.Add "Item3", Cells(2, 1).Value
    topLevel.Add "Item4", Cells(2, 2).Value

    Dim json As String
    json = ConvertToJson(JsonValue:=topLevel, Whitespace:=2)

    Debug.Print json
End Sub

生成以下JSON：

{
  "Item1": "HAYRETTIN YILMAZ",
  "Item2": "HAYRETT\u00DDN YILMAZ",
  "Item3": "H\u00DCSEY\u0130N DURAK",
  "Item4": "H\u00DCSEY\u00DDN DURAK"
}